diff options
| author | Eli Zaretskii | 1998-07-15 10:21:04 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 1998-07-15 10:21:04 +0000 |
| commit | 9959c16e4f83ba4798ffa089261d8f4b0a30361a (patch) | |
| tree | eccb276a9459993ba4a68d68e44bdb023341b537 | |
| parent | 6356e646f5029b9e1a541ebced8b5b617e96413d (diff) | |
| download | emacs-9959c16e4f83ba4798ffa089261d8f4b0a30361a.tar.gz emacs-9959c16e4f83ba4798ffa089261d8f4b0a30361a.zip | |
(file-name-invalid-regexp): Fix the part which handles colons in file names.
| -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 1bd0ac57219..cb7336f5d28 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -172,13 +172,13 @@ If the buffer is visiting a new file, the value is nil.") | |||
| 172 | 172 | ||
| 173 | (defvar file-name-invalid-regexp | 173 | (defvar file-name-invalid-regexp |
| 174 | (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) | 174 | (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) |
| 175 | (concat "\\(^\\([A-z]:\\)?/?.*:\\)\\|" ; colon except after drive | 175 | (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive |
| 176 | "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters | 176 | "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters |
| 177 | "[\000-\031]|" ; control characters | 177 | "[\000-\031]|" ; control characters |
| 178 | "\\(/\\.\\.?[^/]\\)\\|" ; leading dots | 178 | "\\(/\\.\\.?[^/]\\)\\|" ; leading dots |
| 179 | "\\(/[^/.]+\\.[^/.]*\\.\\)")) ; more than a single dot | 179 | "\\(/[^/.]+\\.[^/.]*\\.\\)")) ; more than a single dot |
| 180 | ((memq system-type '(ms-dos windows-nt)) | 180 | ((memq system-type '(ms-dos windows-nt)) |
| 181 | (concat "\\(^\\([A-z]:\\)?/?.*:\\)\\|" ; colon except after drive | 181 | (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive |
| 182 | "[|<>\"?*\000-\031]")) ; invalid characters | 182 | "[|<>\"?*\000-\031]")) ; invalid characters |
| 183 | (t "[\000]")) | 183 | (t "[\000]")) |
| 184 | "Regexp recognizing file names which aren't allowed by the filesystem.") | 184 | "Regexp recognizing file names which aren't allowed by the filesystem.") |