(file-name-invalid-regexp): Fix octal/decimal confusion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9293dc86619b3585cd2b74061ab0312c33a81f43..58cc80df443bea5a4534f017d659aab693ca6f50 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-24  Jason Rumney  <jasonr@gnu.org>
+
+       * files.el (file-name-invalid-regexp): Fix octal/decimal confusion.
+
 2008-02-23  Ulrich Mueller  <ulm@gentoo.org>  (tiny change)
 
        * textmodes/bibtex.el (bibtex-convert-alien): Fix sit-for ags.

diff --git a/lisp/files.el b/lisp/files.el
index 7c0557cd5adea139524af02352b408a768a9e9a6..cd375dfd00d5b06d22c40a5d027c88cd92d88354 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -217,12 +217,12 @@ have fast storage with limited space, such as a RAM disk."
   (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names)))
         (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
                 "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|"  ; invalid characters
-                "[\000-\031]\\|"                 ; control characters
+                "[\000-\037]\\|"                 ; control characters
                 "\\(/\\.\\.?[^/]\\)\\|"          ; leading dots
                 "\\(/[^/.]+\\.[^/.]*\\.\\)"))    ; more than a single dot
        ((memq system-type '(ms-dos windows-nt cygwin))
         (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
-                "[|<>\"?*\000-\031]"))           ; invalid characters
+                "[|<>\"?*\000-\037]"))           ; invalid characters
        (t "[\000]"))
   "Regexp recognizing file names which aren't allowed by the filesystem.")