# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 897838442 0
# Node ID a85ad07a6e4bf5d44354becd00eead0db1e401a4
# Parent  1bc7dcbcb85156530e7e26c16d066bf688f153cf
(file-name-invalid-regexp): Add control characters for DOS/Windows
as they are disallowed by the filesystem there.

diff -r 1bc7dcbcb851 -r a85ad07a6e4b lisp/files.el
--- a/lisp/files.el	Sun Jun 14 08:37:52 1998 +0000
+++ b/lisp/files.el	Sun Jun 14 15:34:02 1998 +0000
@@ -174,11 +174,12 @@
   (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.")