;;;; 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.")
(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