Mercurial > emacs
changeset 22175:0a2e8ec2a766
(file-name-invalid-regexp): New variable, moved here from arc-mode.el
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Thu, 21 May 1998 14:26:10 +0000 |
| parents | 18a455216af7 |
| children | 050c1872b04b |
| files | lisp/files.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Thu May 21 14:22:38 1998 +0000 +++ b/lisp/files.el Thu May 21 14:26:10 1998 +0000 @@ -170,6 +170,18 @@ (defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt))) "Non-nil means that buffer-file-number uniquely identifies files.") +(defvar file-name-invalid-regexp + (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) + (concat "\\(^\\([A-z]:\\)?/?.*:\\)\\|" ; colon except after drive + "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters + "\\(/\\.\\.?[^/]\\)\\|" ; leading dots + "\\(/[^/.]+\\.[^/.]*\\.\\)")) ; more than a single dot + ((memq system-type '(ms-dos windows-nt)) + (concat "\\(^\\([A-z]:\\)?/?.*:\\)\\|" ; colon except after drive + "[|<>\"?*]")) ; invalid characters + (t "[\000]")) + "Regexp recognizing file names which aren't allowed by the filesystem.") + (defcustom file-precious-flag nil "*Non-nil means protect against I/O errors while saving files. Some modes set this non-nil in particular buffers.