diff options
| author | Eli Zaretskii <eliz@gnu.org> | 1998-06-14 15:34:02 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 1998-06-14 15:34:02 +0000 |
| commit | 106a57a4cc6d51bb25f3163831a31dedc45f96e5 (patch) | |
| tree | 9bdaa307737fdd61f49d69eb41342e773ed577a3 /lisp | |
| parent | 60e6659c304191b62f44a5cab1f37ff10dca5a6e (diff) | |
| download | emacs-106a57a4cc6d51bb25f3163831a31dedc45f96e5.tar.gz emacs-106a57a4cc6d51bb25f3163831a31dedc45f96e5.tar.bz2 emacs-106a57a4cc6d51bb25f3163831a31dedc45f96e5.zip | |
(file-name-invalid-regexp): Add control characters for DOS/Windows
as they are disallowed by the filesystem there.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 3 |
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.") |