(file-name-invalid-regexp): New variable, moved here from arc-mode.el

diff --git a/lisp/files.el b/lisp/files.el
index d0ecd6c2922eac681fbb60fe3095a5ffdb79f53d..7d1ffa812352f4c058897aff788a65cee33fd4da 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -170,6 +170,18 @@ If the buffer is visiting a new file, the value is nil.")
 (defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt)))
   "Non-nil means that buffer-file-number uniquely identifies files.")
 
+(defvar file-name-invalid-regexp
+  (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names)))
+        (concat "\\(^\\([A-z]:\\)?/?.*:\\)\\|"   ; colon except after drive
+                "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|"  ; invalid characters
+                "\\(/\\.\\.?[^/]\\)\\|"          ; leading dots
+                "\\(/[^/.]+\\.[^/.]*\\.\\)"))    ; more than a single dot
+       ((memq system-type '(ms-dos windows-nt))
+        (concat "\\(^\\([A-z]:\\)?/?.*:\\)\\|"   ; colon except after drive
+                "[|<>\"?*]"))                    ; invalid characters
+       (t "[\000]"))
+  "Regexp recognizing file names which aren't allowed by the filesystem.")
+
 (defcustom file-precious-flag nil
   "*Non-nil means protect against I/O errors while saving files.
 Some modes set this non-nil in particular buffers.