Mercurial > emacs
comparison lisp/files.el @ 80193:d22df5de19ce
(file-name-invalid-regexp): Fix octal/decimal confusion.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Sun, 24 Feb 2008 16:55:51 +0000 |
parents | c293ff04d6e9 |
children | dc5774be241d 049a396d6d9d |
comparison
equal
deleted
inserted
replaced
80192:639e83cd103d | 80193:d22df5de19ce |
---|---|
215 | 215 |
216 (defvar file-name-invalid-regexp | 216 (defvar file-name-invalid-regexp |
217 (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) | 217 (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) |
218 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive | 218 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive |
219 "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters | 219 "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters |
220 "[\000-\031]\\|" ; control characters | 220 "[\000-\037]\\|" ; control characters |
221 "\\(/\\.\\.?[^/]\\)\\|" ; leading dots | 221 "\\(/\\.\\.?[^/]\\)\\|" ; leading dots |
222 "\\(/[^/.]+\\.[^/.]*\\.\\)")) ; more than a single dot | 222 "\\(/[^/.]+\\.[^/.]*\\.\\)")) ; more than a single dot |
223 ((memq system-type '(ms-dos windows-nt cygwin)) | 223 ((memq system-type '(ms-dos windows-nt cygwin)) |
224 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive | 224 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive |
225 "[|<>\"?*\000-\031]")) ; invalid characters | 225 "[|<>\"?*\000-\037]")) ; invalid characters |
226 (t "[\000]")) | 226 (t "[\000]")) |
227 "Regexp recognizing file names which aren't allowed by the filesystem.") | 227 "Regexp recognizing file names which aren't allowed by the filesystem.") |
228 | 228 |
229 (defcustom file-precious-flag nil | 229 (defcustom file-precious-flag nil |
230 "Non-nil means protect against I/O errors while saving files. | 230 "Non-nil means protect against I/O errors while saving files. |