# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 895760558 0
# Node ID 18a455216af7815998604dbf08cb3d7144cda582
# Parent  ad7d4feb4d644bc4a0bba744b520181cb8de6e23
(archive-file-name-invalid-regexp): Remove.
Change all users to use file-name-invalid-regexp instead.

diff -r ad7d4feb4d64 -r 18a455216af7 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Thu May 21 03:34:21 1998 +0000
+++ b/lisp/arc-mode.el	Thu May 21 14:22:38 1998 +0000
@@ -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 @@
 	(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 @@
 	(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 @@
 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 @@
 	 ;; 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