Mercurial > emacs
changeset 1535:ff23077bae01
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 03 Nov 1992 02:00:50 +0000 |
| parents | dd292c7ef749 |
| children | 0877009e6324 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Sun Nov 01 22:10:59 1992 +0000 +++ b/lisp/ange-ftp.el Tue Nov 03 02:00:50 1992 +0000 @@ -857,7 +857,7 @@ ;;;; 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 @@ (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