diff options
| author | Jason Rumney <jasonr@gnu.org> | 2008-02-24 16:57:51 +0000 |
|---|---|---|
| committer | Jason Rumney <jasonr@gnu.org> | 2008-02-24 16:57:51 +0000 |
| commit | 12f68d3fdf486789ceb06466de4c4d158da244e9 (patch) | |
| tree | 587d181ea5ed199b751e7cfcb6b3815eb4cb5f87 /lisp/files.el | |
| parent | 20ca5ee4f7d897d79416a6fdd084db1eabb392b0 (diff) | |
| download | emacs-12f68d3fdf486789ceb06466de4c4d158da244e9.tar.gz | |
(file-name-invalid-regexp): Fix octal/decimal confusion.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
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.") |