Commit 6067ebef authored by Jim Blandy's avatar Jim Blandy
Browse files

* ange-ftp.el: Tighten the regular expression used in

	file-name-handler-alist to recognized ange-ftp filenames; the
	slash, username and hostname must be at the start of the filename,
	not just anywhere in the filename.
parent f1c03125
......@@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number."
;;;; Internal variables.
;;;; ------------------------------------------------------------
(defconst ange-ftp-version "$Revision: 1.9 $")
(defconst ange-ftp-version "$Revision: 1.10 $")
(defvar ange-ftp-data-buffer-name " *ftp data*"
"Buffer name to hold directory listing data received from ftp process.")
......@@ -3732,9 +3732,9 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(apply operation args)))))
;;;###autoload
(or (assoc "/[^/:]+:" file-name-handler-alist)
(or (assoc "^/[^/:]+:" file-name-handler-alist)
(setq file-name-handler-alist
(cons '("/[^/:]+:" . ange-ftp-hook-function)
(cons '("^/[^/:]+:" . ange-ftp-hook-function)
file-name-handler-alist)))
;;; The above two forms are sufficient to cause this file to be loaded
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment