emacs: lisp/net/ange-ftp.el comparison

comparison lisp/net/ange-ftp.el @ 64906:63dd464bce2d

Use \\` and \\' instead of ^ and $ in regexps. (ange-ftp-send-cmd): Revert last change, and expand the comment explaining the problem.

author	Stefan Monnier <monnier@iro.umontreal.ca>
date	Thu, 11 Aug 2005 10:24:48 +0000
parents	15e2ef5c7c16
children	5fd07f61ee51 2d92f5c9d6ae

comparison

equal deleted inserted replaced

-:b929318406af
+:63dd464bce2d
 made as simple and transparent as possible."
 :group 'files
 :prefix "ange-ftp-")
 (defcustom ange-ftp-name-format
-'("^/\\(\\([^/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4))
+'("\\`/\\(\\([^/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4))
 "*Format of a fully expanded remote file name.
 This is a list of the form \(REGEXP HOST USER NAME\),
 where REGEXP is a regular expression matching
 the full remote name, and HOST, USER, and NAME are the numbers of
 :group 'ange-ftp
 :type '(choice (const :tag "Default" nil)
 		 string))
 (defcustom ange-ftp-binary-file-name-regexp
-(concat "\\.[zZ]$\\|\\.lzh$\\|\\.arc$\\|\\.zip$\\|\\.zoo$\\|\\.tar$\\|"
+(concat "TAGS\\'\\|\\.\\(?:"
-	  "\\.dvi$\\|\\.ps$\\|\\.elc$\\|TAGS$\\|\\.gif$\\|"
+(eval-when-compile
-	  "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$\\|\\.gz$\\|"
+(regexp-opt '("z" "Z" "lzh" "arc" "zip" "zoo" "tar" "dvi"
-	  "\\.taz$\\|\\.tgz$")
+"ps" "elc" "gif" "gz" "taz" "tgz")))
+	  "\\|EXE\\(;[0-9]+\\)?\\|[zZ]-part-..\\)\\'")
 "*If a file matches this regexp then it is transferred in binary mode."
 :group 'ange-ftp
 :type 'regexp)
 (defcustom ange-ftp-gateway-host nil
 "Abbreviate the file name FILE relative to the `default-directory'.
 If the optional parameter NEW is given and the non-directory parts match,
 only return the directory part of FILE."
 (save-match-data
 (if (and default-directory
-	     (string-match (concat "^"
+	     (string-match (concat "\\`"
 				   (regexp-quote default-directory)
 				   ".") file))
 	(setq file (substring file (1- (match-end 0)))))
 (if (and new
 	     (string-equal (file-name-nondirectory file)
 (if (ange-ftp-lookup-passwd host user) (throw 'found-one host)))
 ange-ftp-user-hashtable)
 (save-match-data
 (maphash
 (lambda (key value)
-	 (if (string-match "^[^/]*\\(/\\).*$" key)
+	 (if (string-match "\\`[^/]*\\(/\\).*\\'" key)
 	     (let ((host (substring key 0 (match-beginning 1))))
 	       (if (and (string-equal user (substring key (match-end 1)))
 			value)
 		   (throw 'found-one host)))))
 ange-ftp-passwd-hashtable))
 (ange-ftp-parse-netrc)
 (save-match-data
 (let (res)
 (maphash
 (lambda (key value)
-	 (if (string-match "^[^/]*\\(/\\).*$" key)
+	 (if (string-match "\\`[^/]*\\(/\\).*\\'" key)
 	     (let ((host (substring key 0 (match-beginning 1)))
 		   (user (substring key (match-end 1))))
 	       (push (concat user "@" host ":") res))))
 ange-ftp-passwd-hashtable)
 (maphash
 	    (progn
 	      (set-buffer (process-buffer proc))
 	      ;; handle hash mark printing
 	      (and ange-ftp-process-busy
-		   (string-match "^#+$" str)
+		   (string-match "\\`#+\\'" str)
 		   (setq str (ange-ftp-process-handle-hash str)))
 	      (comint-output-filter proc str)
 	      ;; Replace STR by the result of the comint processing.
 	      (setq str (buffer-substring comint-last-output-start
 					  (process-mark proc)))
 				       0
 				       (match-beginning 0)))
 (seen-prompt nil))
 		  (setq ange-ftp-process-string (substring ange-ftp-process-string
 							   (match-end 0)))
-		  (while (string-match "^ftp> *" line)
+		  (while (string-match "\\`ftp> *" line)
 (setq seen-prompt t)
 		    (setq line (substring line (match-end 0))))
 (if (not (and seen-prompt ange-ftp-pending-error-line))
 (ange-ftp-process-handle-line line proc)
 ;; If we've seen a potential error message and it
 	(and msg ange-ftp-process-verbose (ange-ftp-message "%s..." msg))
 	(goto-char (point-max))
 	(move-marker comint-last-input-start (point))
 	;; don't insert the password into the buffer on the USER command.
 	(save-match-data
-	  (if (string-match "^user \"[^\"]*\"" cmd)
+	  (if (string-match "\\`user \"[^\"]*\"" cmd)
 	      (insert (substring cmd 0 (match-end 0)) " Turtle Power!\n")
 	    (insert cmd)))
 	(move-marker comint-last-input-end (point))
 	(process-send-string proc cmd)
 	(set-marker (process-mark proc) (point))
 (defun ange-ftp-normal-login (host user pass account proc)
 "Connect to the FTP-server on HOST as USER using PASSWORD and ACCOUNT.
 PROC is the process to the FTP-client.  HOST may have an optional
 suffix of the form #PORT to specify a non-default port"
 (save-match-data
-(string-match "^\\([^#]+\\)\\(#\\([0-9]+\\)\\)?\\'" host)
+(string-match "\\`\\([^#]+\\)\\(#\\([0-9]+\\)\\)?\\'" host)
 (let* ((nshost (ange-ftp-nslookup-host (match-string 1 host)))
 	   (port (match-string 3 host))
 	   (result (ange-ftp-raw-send-cmd
 		    proc
 		    (if port
 		  ;; if a default value for this is set, use that value.
 		  (or ange-ftp-binary-hash-mark-size
 		      (setq ange-ftp-binary-hash-mark-size size)))))))))
+(defvar ange-ftp-process-startup-hook nil)
 (defun ange-ftp-get-process (host user)
 "Return an FTP subprocess connected to HOST and logged in as USER.
 Create a new process if needed."
 (let* ((name (ange-ftp-ftp-process-buffer host user))
 	 (proc (get-process name)))
 	    cmd3 (nth 3 cmd))
 ;; Need to deal with the HP-UX ftp bug. This should also allow us to
 ;; resolve symlinks to directories on SysV machines. (Sebastian will
 ;; be happy.)
 (and (eq host-type 'unix)
-	   (string-match "/$" cmd1)
+	   (string-match "/\\'" cmd1)
 	   (not (string-match "R" cmd3))
 	   (setq cmd1 (concat cmd1 ".")))
 ;; If the dir name contains a space, some ftp servers will
 ;; refuse to list it.  We instead change directory to the
 ;; If the remote ls can take switches, put them in
 (unless (memq host-type ange-ftp-dumb-host-types)
 	(setq cmd0 'ls)
 	;; We cd and then use `ls' with no directory argument.
-	;; This works around a misfeature of some versions of netbsd ftpd.
+	;; This works around a misfeature of some versions of netbsd ftpd
+	;; where `ls' can only take one argument: either one set of flags
+	;; or a file/directory name.
+	;; FIXME: if we're trying to `ls' a single file, this fails since we
+	;; can't cd to a file.  We can't fix this problem here, tho, because
+	;; at this point we don't know whether the argument is a file or
+	;; a directory.  Such an `ls' is only every used (apparently) from
+	;; `insert-directory' when the `full-directory-p' argument is nil
+	;; (which seems to only be used by dired when updating its display
+	;; after operating on a set of files).  We should change
+	;; ange-ftp-insert-directory so that this case is handled by getting
+	;; a full listing of the directory and extracting the line
+	;; corresponding to the requested file.
 	(unless (equal cmd1 ".")
-	  (setq result (ange-ftp-cd host user
+	  (setq result (ange-ftp-cd host user (nth 1 cmd) 'noerror)))
-				    ;; Make sure the target to which
+	(setq cmd1 cmd3)))
-				    ;; `cd' is performed is a directory.
-				    (file-name-directory (nth 1 cmd))
-				    'noerror)))
-	;; Concatenate the switches and the target to be used with `ls'.
-	(setq cmd1 (concat "\"" cmd3 " " cmd1 "\""))))
 ;; First argument is the remote name
 ((progn
 	(setq fix-name-func (or (cdr (assq host-type
 					   ange-ftp-fix-name-func-alist))
 			       (match-string 2)
 			       (match-string 3))))))
 	    ;; Some ls's with the F switch mark symlinks with an @ (ULTRIX)
 	    ;; and others don't. (sigh...) Beware, that some Unix's don't
 	    ;; seem to believe in the F-switch
-	    (if (or (and symlink (string-match "@$" file))
+	    (if (or (and symlink (string-match "@\\'" file))
-		    (and directory (string-match "/$" file))
+		    (and directory (string-match "/\\'" file))
-		    (and executable (string-match "*$" file))
+		    (and executable (string-match "*\\'" file))
-		    (and socket (string-match "=$" file)))
+		    (and socket (string-match "=\\'" file)))
 		(setq file (substring file 0 -1)))))
 (puthash file (or symlink directory) tbl)
 (forward-line 1))
 (puthash "." t tbl)
 (puthash ".." t tbl)
 	      (user (nth 1 parsed))
 	      (name (nth 2 parsed)))
 	  ;; See if remote name is absolute.  If so then just expand it and
 	  ;; replace the name component of the overall name.
-	  (cond ((string-match "^/" name)
+	  (cond ((string-match "\\`/" name)
 		 name)
 		;; Name starts with ~ or ~user.  Resolve that part of the name
 		;; making it absolute then re-expand it.
-		((string-match "^~[^/]*" name)
+		((string-match "\\`~[^/]*" name)
 		 (let* ((tilda (match-string 0 name))
 			(rest (substring name (match-end 0)))
 			(dir (ange-ftp-expand-dir host user tilda)))
 		   (if dir
-		       (setq name (cond ((string-equal rest "")
+;; C-x d /ftp:anonymous@ftp.gnu.org:~/ RET
-					 dir)
+;; seems to cause `rest' to sometimes be empty.
-					((string-equal dir "/")
+;; Maybe it's an error for `rest' to be empty here,
-					 rest)
+;; but until we figure this out, this quick fix
-					(t
+;; seems to do the trick.
-					 (concat dir rest))))
+		       (setq name (cond ((string-equal rest "") dir)
+					((string-equal dir "/") rest)
+					(t (concat dir rest))))
 		     (error "User \"%s\" is not known"
 			    (substring tilda 1)))))
 		;; relative name.  Tack on homedir and re-expand.
 		(t
 				   (ange-ftp-real-file-name-as-directory dir)
 				   name))
 		     (error "Unable to obtain CWD")))))
 	  ;; If name starts with //, preserve that, for apollo system.
-	  (if (not (string-match "^//" name))
+	  (unless (string-match "\\`//" name)
-	      (progn
+(if (not (eq system-type 'windows-nt))
-		(if (not (eq system-type 'windows-nt))
+(setq name (ange-ftp-real-expand-file-name name))
-		    (setq name (ange-ftp-real-expand-file-name name))
+;; Windows UNC default dirs do not make sense for ftp.
-		  ;; Windows UNC default dirs do not make sense for ftp.
+(setq name (if (string-match "\\`//" default-directory)
-		  (if (string-match "^//" default-directory)
+(ange-ftp-real-expand-file-name name "c:/")
-		      (setq name (ange-ftp-real-expand-file-name name "c:/"))
+(ange-ftp-real-expand-file-name name)))
-		    (setq name (ange-ftp-real-expand-file-name name)))
+;; Strip off possible drive specifier.
-		  ;; Strip off possible drive specifier.
+(if (string-match "\\`[a-zA-Z]:" name)
-		  (if (string-match "^[a-zA-Z]:" name)
+(setq name (substring name 2))))
-		      (setq name (substring name 2))))
+(if (string-match "\\`//" name)
-		(if (string-match "^//" name)
+(setq name (substring name 1))))
-		    (setq name (substring name 1)))))
 	  ;; Now substitute the expanded name back into the overall filename.
 	  (ange-ftp-replace-name-component n name))
 ;; non-ange-ftp name.  Just expand normally.
 	   (ange-ftp-canonize-filename name))
 	  ((and (eq system-type 'windows-nt)
 		(eq (string-to-char name) ?\\))
 	   (ange-ftp-canonize-filename name))
 	  ((and (eq system-type 'windows-nt)
-		(or (string-match "^[a-zA-Z]:" name)
+		(or (string-match "\\`[a-zA-Z]:" name)
-		    (string-match "^[a-zA-Z]:" default)))
+		    (string-match "\\`[a-zA-Z]:" default)))
 	   (ange-ftp-real-expand-file-name name default))
 	  ((zerop (length name))
 	   (ange-ftp-canonize-filename default))
 	  ((ange-ftp-canonize-filename
 	    (concat (file-name-as-directory default) name))))))
 "Documented as original."
 (let ((parsed (ange-ftp-ftp-name name)))
 (if parsed
 	(let ((filename (nth 2 parsed)))
 	  (if (save-match-data
-		(string-match "^~[^/]*$" filename))
+		(string-match "\\`~[^/]*\\'" filename))
 	      name
 	    (ange-ftp-replace-name-component
 	     name
 	     (ange-ftp-real-file-name-directory filename))))
 (ange-ftp-real-file-name-directory name))))
 "Documented as original."
 (let ((parsed (ange-ftp-ftp-name name)))
 (if parsed
 	(let ((filename (nth 2 parsed)))
 	  (if (save-match-data
-		(string-match "^~[^/]*$" filename))
+		(string-match "\\`~[^/]*\\'" filename))
 	      ""
 	    (ange-ftp-real-file-name-nondirectory filename)))
 (ange-ftp-real-file-name-nondirectory name))))
 (defun ange-ftp-directory-file-name (dir)
 (defun ange-ftp-root-dir-p (dir)
 ;; Maybe we should use something more like
 ;; (equal dir (file-name-directory (directory-file-name dir)))  -stef
 (or (and (eq system-type 'windows-nt)
-	   (string-match "^[a-zA-Z]:[/\\]$" dir))
+	   (string-match "\\`[a-zA-Z]:[/\\]\\'" dir))
 (string-equal "/" dir)))
 (defun ange-ftp-file-name-all-completions (file dir)
 (let ((ange-ftp-this-dir (expand-file-name dir)))
 (if (ange-ftp-ftp-name ange-ftp-this-dir)
 	    (setq ange-ftp-this-dir
 		  (ange-ftp-real-file-name-as-directory ange-ftp-this-dir))	;real?
 	    (let* ((tbl (ange-ftp-get-files ange-ftp-this-dir))
 		   (ange-ftp-completion-ignored-pattern
 		    (mapconcat (lambda (s) (if (stringp s)
 (concat (regexp-quote s) "$")
-					     "/")) ; / never in filename
+"/")) ; / never in filename
 			       completion-ignored-extensions
 			       "\\|")))
 	      (save-match-data
 		(or (ange-ftp-file-name-completion-1
 		     file tbl ange-ftp-this-dir
 ;; Convert NAME from UNIX-ish to VMS.  If REVERSE given then convert from VMS
 ;; to UNIX-ish.
 (defun ange-ftp-fix-name-for-vms (name &optional reverse)
 (save-match-data
 (if reverse
-	(if (string-match "^\\([^:]+:\\)?\\(\\[.*\\]\\)?\\([^][]*\\)$" name)
+	(if (string-match "\\`\\([^:]+:\\)?\\(\\[.*\\]\\)?\\([^][]*\\)\\'" name)
 	    (let (drive dir file)
 	      (setq drive (match-string 1 name))
 	      (setq dir (match-string 2 name))
 	      (setq file (match-string 3 name))
 	      (and dir
 			   (concat "/" drive "/"))
 		      dir (and dir "/")
 		      file))
 	  (error "name %s didn't match" name))
 (let (drive dir file tmp)
-	(if (string-match "^/[^:]+:/" name)
+	(if (string-match "\\`/[^:]+:/" name)
 	    (setq drive (substring name 1
 				   (1- (match-end 0)))
 		  name (substring name (match-end 0))))
 	(setq tmp (file-name-directory name))
 	(if tmp
 ;; Should there be entries for .. -> [-] and . -> [] below. Don't
 ;; think so, because expand-filename should have already short-circuited
 ;; them.
 (cond ((string-equal dir-name "/")
 	 (error "Cannot get listing for fictitious \"/\" directory"))
-	((string-match "^/[-A-Z0-9_$]+:/$" dir-name)
+	((string-match "\\`/[-A-Z0-9_$]+:/\\'" dir-name)
 	 (error "Cannot get listing for device"))
 	((ange-ftp-fix-name-for-vms dir-name))))
 (or (assq 'vms ange-ftp-fix-dir-name-func-alist)
 (setq ange-ftp-fix-dir-name-func-alist
 (while (setq file (ange-ftp-parse-vms-filename))
 	(if (string-match "\\.\\(DIR\\|dir\\);[0-9]+" file)
 	    ;; deal with directories
 	    (puthash (substring file 0 (match-beginning 0)) t tbl)
 	  (puthash file nil tbl)
-	  (if (string-match ";[0-9]+$" file) ; deal with extension
+	  (if (string-match ";[0-9]+\\'" file) ; deal with extension
 	      ;; sans extension
 	      (puthash (substring file 0 (match-beginning 0)) nil tbl)))
 	(forward-line 1))
 ;; Would like to look for a "Total" line, or a "Directory" line to
 ;; make sure that the listing isn't complete garbage before putting
 (defun ange-ftp-vms-delete-file-entry (name &optional dir-p)
 (if dir-p
 (ange-ftp-internal-delete-file-entry name t)
 (save-match-data
 (let ((file (ange-ftp-get-file-part name)))
-	(if (string-match ";[0-9]+$" file)
+	(if (string-match ";[0-9]+\\'" file)
 	    ;; In VMS you can't delete a file without an explicit
 	    ;; version number, or wild-card (e.g. FOO;*)
 	    ;; For now, we give up on wildcards.
 	    (let ((files (gethash (file-name-directory name)
 				  ange-ftp-files-hashtable)))
 (let ((files (gethash (file-name-directory name)
 			  ange-ftp-files-hashtable)))
 (if files
 	  (let ((file (ange-ftp-get-file-part name)))
 	    (save-match-data
-	      (if (string-match ";[0-9]+$" file)
+	      (if (string-match ";[0-9]+\\'" file)
 		  (puthash (substring file 0 (match-beginning 0)) nil files)
 		;; Need to figure out what version of the file
 		;; is being added.
 		(let ((regexp (concat "^"
 				      (regexp-quote file)
 	    ange-ftp-host-cache nil)))
 (defun ange-ftp-vms-file-name-as-directory (name)
 (save-match-data
-(if (string-match "\\.\\(DIR\\|dir\\)\\(;[0-9]+\\)?$" name)
+(if (string-match "\\.\\(DIR\\|dir\\)\\(;[0-9]+\\)?\\'" name)
 	(setq name (substring name 0 (match-beginning 0))))
 (ange-ftp-real-file-name-as-directory name)))
 (or (assq 'vms ange-ftp-file-name-as-directory-alist)
 (setq ange-ftp-file-name-as-directory-alist
 ;; compressed files. Instead, we turn "FILE.TYPE" into
 ;; "FILE.TYPE-Z". Hope that this is a reasonable thing to do.
 (defun ange-ftp-vms-make-compressed-filename (name &optional reverse)
 (cond
-((string-match "-Z;[0-9]+$" name)
+((string-match "-Z;[0-9]+\\'" name)
 (list nil (substring name 0 (match-beginning 0))))
-((string-match ";[0-9]+$" name)
+((string-match ";[0-9]+\\'" name)
 (list nil (substring name 0 (match-beginning 0))))
-((string-match "-Z$" name)
+((string-match "-Z\\'" name)
 (list nil (substring name 0 -2)))
 (t
 (list t
-	  (if (string-match ";[0-9]+$" name)
+	  (if (string-match ";[0-9]+\\'" name)
 	      (concat (substring name 0 (match-beginning 0))
 		      "-Z")
 	    (concat name "-Z"))))))
 (or (assq 'vms ange-ftp-make-compressed-filename-alist)
 ;;	  (cons '(vms . ange-ftp-dired-vms-ls-trim)
 ;;		ange-ftp-dired-ls-trim-alist)))
 (defun ange-ftp-vms-sans-version (name &rest args)
 (save-match-data
-(if (string-match ";[0-9]+$" name)
+(if (string-match ";[0-9]+\\'" name)
 	(substring name 0 (match-beginning 0))
 name)))
 (or (assq 'vms ange-ftp-sans-version-alist)
 (setq ange-ftp-sans-version-alist
 ;; Convert NAME from UNIX-ish to MTS. If REVERSE given then convert from
 ;; MTS to UNIX-ish.
 (defun ange-ftp-fix-name-for-mts (name &optional reverse)
 (save-match-data
 (if reverse
-	(if (string-match "^\\([^:]+:\\)?\\(.*\\)$" name)
+	(if (string-match "\\`\\([^:]+:\\)?\\(.*\\)\\'" name)
 	    (let (acct file)
 	      (setq acct (match-string 1 name))
 	      (setq file (match-string 2 name))
 	      (concat (and acct (concat "/" acct "/"))
 		      file))
 	  (error "name %s didn't match" name))
-(if (string-match "^/\\([^:]+:\\)/\\(.*\\)$" name)
+(if (string-match "\\`/\\([^:]+:\\)/\\(.*\\)\\'" name)
 	  (concat (match-string 1 name) (match-string 2 name))
 	;; Let's hope that mts will recognize it anyway.
 	name))))
 (or (assq 'mts ange-ftp-fix-name-func-alist)
 (error "Cannot get listing for fictitious \"/\" directory")
 (let ((dir-name (ange-ftp-fix-name-for-mts dir-name)))
 (cond
 ((string-equal dir-name "")
 	"?")
-((string-match ":$" dir-name)
+((string-match ":\\'" dir-name)
 	(concat dir-name "?"))
 (dir-name))))) ; It's just a single file.
 (or (assq 'mts ange-ftp-fix-dir-name-func-alist)
 (setq ange-ftp-fix-dir-name-func-alist
 	;; we'll assume that it's a minidisk, and make it into a
 	;; directory file name. Note that the expand-dir-hashtable
 	;; stores directories without the trailing /. Is this
 	;; consistent?
 	(concat "/" name)
-(if (string-match "^/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?$"
+(if (string-match "\\`/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?\\'"
 			name)
 	  (let ((minidisk (match-string 1 name)))
 	    (if (match-beginning 2)
 		(let ((file (match-string 2 name))
 		      (cmd (concat "cd " minidisk))
 ;; Convert name from UNIX-ish to CMS ready for a DIRectory listing.
 (defun ange-ftp-fix-dir-name-for-cms (dir-name)
 (cond
 ((string-equal "/" dir-name)
 (error "Cannot get listing for fictitious \"/\" directory"))
-((string-match "^/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?$" dir-name)
+((string-match "\\`/\\([-A-Z0-9$*._]+\\)/\\([-A-Z0-9$._]+\\)?\\'" dir-name)
 (let* ((minidisk (match-string 1 dir-name))
 	   ;; host and user are bound in the call to ange-ftp-send-cmd
 	   (proc (ange-ftp-get-process ange-ftp-this-host ange-ftp-this-user))
 	   (cmd (concat "cd " minidisk))
 	   (file (if (match-beginning 2)
 ;;    (setq ange-ftp-dired-move-to-end-of-filename-alist
 ;;	  (cons '(cms . ange-ftp-dired-cms-move-to-end-of-filename)
 ;;		ange-ftp-dired-move-to-end-of-filename-alist)))
 (defun ange-ftp-cms-make-compressed-filename (name &optional reverse)
-(if (string-match "-Z$" name)
+(if (string-match "-Z\\'" name)
 (list nil (substring name 0 -2))
 (list t (concat name "-Z"))))
 (or (assq 'cms ange-ftp-make-compressed-filename-alist)
 (setq ange-ftp-make-compressed-filename-alist
 ;;;; Finally provide package.
 ;;;; ------------------------------------------------------------
 (provide 'ange-ftp)
-;;; arch-tag: 2987ef88-cb56-4ec1-87a9-79132572e316
+;; arch-tag: 2987ef88-cb56-4ec1-87a9-79132572e316
 ;;; ange-ftp.el ends here

Mercurial > emacs

comparison lisp/net/ange-ftp.el @ 64906:63dd464bce2d