diff options
| author | Andreas Schwab | 1998-08-24 10:21:51 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1998-08-24 10:21:51 +0000 |
| commit | edfc7f2558fc3a52e645cd2fdbe0f6566ac6ecbc (patch) | |
| tree | 7c4015fbb0f826aefabcd5a31c50d9bc29145f9f | |
| parent | 243538e26b05fcebccb50c658c7a2f03ffac04ed (diff) | |
| download | emacs-edfc7f2558fc3a52e645cd2fdbe0f6566ac6ecbc.tar.gz emacs-edfc7f2558fc3a52e645cd2fdbe0f6566ac6ecbc.zip | |
(file-name-invalid-regexp): Fix regex for ms-dos without long file names.
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index d3c8629759d..279431ace4a 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -174,7 +174,7 @@ If the buffer is visiting a new file, the value is nil.") | |||
| 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[-`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)) |