From: Jason Rumney Date: Sun, 24 Feb 2008 16:57:51 +0000 (+0000) Subject: (file-name-invalid-regexp): Fix octal/decimal confusion. X-Git-Tag: emacs-pretest-22.1.92~84 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12f68d3fdf486789ceb06466de4c4d158da244e9;p=emacs.git (file-name-invalid-regexp): Fix octal/decimal confusion. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9293dc86619..58cc80df443 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-02-24 Jason Rumney + + * files.el (file-name-invalid-regexp): Fix octal/decimal confusion. + 2008-02-23 Ulrich Mueller (tiny change) * textmodes/bibtex.el (bibtex-convert-alien): Fix sit-for ags. diff --git a/lisp/files.el b/lisp/files.el index 7c0557cd5ad..cd375dfd00d 100644 --- 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.")