mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(file-name-handler-alist): Have two separate regexps with different hooks.

Browse source
This commit is contained in:
Richard M. Stallman 1993-07-20 07:12:00 +00:00
parent 96099e29a3
commit 0628c764af
1 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/ange-ftp.el
View file

@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number."
;;;; Internal variables.
;;;; ------------------------------------------------------------
(defconst ange-ftp-version "$Revision: 1.29 $")
(defconst ange-ftp-version "$Revision: 1.30 $")
(defvar ange-ftp-data-buffer-name " *ftp data*"
"Buffer name to hold directory listing data received from ftp process.")
@ -3750,12 +3750,19 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
;;; This regexp takes care of real ange-ftp file names (with a slash
;;; and colon), and absolute filenames with only one component, for
;;; the sake of hostname completion.
;;; and colon).
;;;###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)))
;;; This regexp recognizes and absolute filenames with only one component,
;;; for the sake of hostname completion.
;;;###autoload
(or (assoc "^/[^/:]*\\'" file-name-handler-alist)
(setq file-name-handler-alist
(cons '("^/[^/:]*\\'" . ange-ftp-completion-hook-function)
file-name-handler-alist)))
;;; The above two forms are sufficient to cause this file to be loaded