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

diff --git a/lisp/files.el b/lisp/files.el
index 1bd0ac57219e20296e3ff1629945269cc3850967..cb7336f5d2898e78437f7b5f029a0b6928584bc6 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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.")