procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(file-name-invalid-regexp): Fix the part which handles colons in file names.

Browse source
This commit is contained in:
Eli Zaretskii 1998-07-15 10:21:04 +00:00
parent 6356e646f5
commit 9959c16e4f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/files.el
View file

@ -172,13 +172,13 @@ If the buffer is visiting a new file, the value is nil.")
(defvar file-name-invalid-regexp
(cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names)))
(concat "\\(^\\([A-z]:\\)?/?.*:\\)\\|" ; colon except after drive
(concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
"[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters
"[\000-\031]|" ; control characters
"\\(/\\.\\.?[^/]\\)\\|" ; leading dots
"\\(/[^/.]+\\.[^/.]*\\.\\)")) ; more than a single dot
((memq system-type '(ms-dos windows-nt))
(concat "\\(^\\([A-z]:\\)?/?.*:\\)\\|" ; colon except after drive
(concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
"[|<>\"?*\000-\031]")) ; invalid characters
(t "[\000]"))
"Regexp recognizing file names which aren't allowed by the filesystem.")