Mercurial > emacs
diff lisp/files.el @ 22762:1de4d5771a8f
(file-name-invalid-regexp): Fix the part which handles colons in file names.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Wed, 15 Jul 1998 10:21:04 +0000 |
parents | d35510185a2d |
children | 0e0f06a92324 |
line wrap: on
line diff
--- a/lisp/files.el Wed Jul 15 00:09:43 1998 +0000 +++ b/lisp/files.el Wed Jul 15 10:21:04 1998 +0000 @@ -172,13 +172,13 @@ (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.")