diff options
| author | Eli Zaretskii <eliz@gnu.org> | 1998-05-21 14:22:38 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 1998-05-21 14:22:38 +0000 |
| commit | 4dbbd6a16697c5d30ae3aaf43432e9e437fa82ea (patch) | |
| tree | 42d5968fe3c151f7a9c3fddf3bc53c133f3cc084 /lisp/arc-mode.el | |
| parent | d2d23393cdbddf56f6a5211caf509a3c462eaea1 (diff) | |
| download | emacs-4dbbd6a16697c5d30ae3aaf43432e9e437fa82ea.tar.gz | |
(archive-file-name-invalid-regexp): Remove.
Change all users to use file-name-invalid-regexp instead.
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 20 |
1 files changed, 4 insertions, 16 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index fc5497d6faf..64651fc0972 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -127,18 +127,6 @@ :type 'directory :group 'archive) -(defvar archive-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 archive-remote-regexp "^/[^/:]*[^/:.]:" "*Regexp recognizing archive files names that are not local. A non-local file is one whose file name is not proper outside Emacs. @@ -544,7 +532,7 @@ archive. (setq archive-read-only (or (not (file-writable-p (buffer-file-name))) (and archive-subfile-mode - (string-match archive-file-name-invalid-regexp + (string-match file-name-invalid-regexp (aref archive-subfile-mode 0))))) ;; Should we use a local copy when accessing from outside Emacs? @@ -555,7 +543,7 @@ archive. (or archive-remote (setq archive-remote (or (string-match archive-remote-regexp (buffer-file-name)) - (string-match archive-file-name-invalid-regexp + (string-match file-name-invalid-regexp (buffer-file-name))))) (setq major-mode 'archive-mode) @@ -770,7 +758,7 @@ If FNAME is something our underlying filesystem can't grok, or if another file by that name already exists in DIR, a unique new name is generated using `make-temp-name', and the generated name is returned." (let ((fullname (expand-file-name fname dir)) - (alien (string-match archive-file-name-invalid-regexp fname))) + (alien (string-match file-name-invalid-regexp fname))) (if (or alien (file-exists-p fullname)) (make-temp-name (expand-file-name @@ -865,7 +853,7 @@ using `make-temp-name', and the generated name is returned." ;; underlying filesystem, are treated as read-only. (read-only-p (or archive-read-only view-p - (string-match archive-file-name-invalid-regexp ename))) + (string-match file-name-invalid-regexp ename))) (buffer (get-buffer bufname)) (just-created nil)) (if buffer |