Mercurial > emacs

comparison lisp/files.el @ 80193:d22df5de19ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.