(file-name-invalid-regexp): Add control characters for DOS/Windows

as they are disallowed by the filesystem there.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/files.el b/lisp/files.el
index 26f39169f8a..6e7e889b880 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -174,11 +174,12 @@ If the buffer is visiting a new file, the value is nil.")
   (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names)))
          (concat "\\(^\\([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
-                 "[|<>\"?*]"))                    ; invalid characters
+                 "[|<>\"?*\000-\031]"))           ; invalid characters
         (t "[\000]"))
   "Regexp recognizing file names which aren't allowed by the filesystem.")