Mercurial > emacs
comparison lisp/files.el @ 100700:90aefe38789d
(dosified-file-name): Declare.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 26 Dec 2008 17:59:48 +0000 |
parents | bc724faa95e6 |
children | 0082d8f02c6f |
comparison
equal
deleted
inserted
replaced
100699:ad20c1d5df89 | 100700:90aefe38789d |
---|---|
212 (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep)) | 212 (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep)) |
213 (declare-function dired-unmark "dired" (arg)) | 213 (declare-function dired-unmark "dired" (arg)) |
214 (declare-function dired-do-flagged-delete "dired" (&optional nomessage)) | 214 (declare-function dired-do-flagged-delete "dired" (&optional nomessage)) |
215 (declare-function dos-8+3-filename "dos-fns" (filename)) | 215 (declare-function dos-8+3-filename "dos-fns" (filename)) |
216 (declare-function view-mode-disable "view" ()) | 216 (declare-function view-mode-disable "view" ()) |
217 (declare-function dosified-file-name "dos-fns" (file-name)) | |
217 | 218 |
218 (defvar file-name-invalid-regexp | 219 (defvar file-name-invalid-regexp |
219 (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) | 220 (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) |
220 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive | 221 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive |
221 "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters | 222 "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters |