diff options
| author | Jim Blandy <[email protected]> | 1992-11-03 02:00:50 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1992-11-03 02:00:50 +0000 |
| commit | 6067ebef9a7b74ba4124862913bcbfc235435a27 (patch) | |
| tree | d13326a44f848b0961dccefaaaca7a6fce2c41d6 /lisp | |
| parent | f1c03125911061c907af8d43637131e2f616f8c7 (diff) | |
* 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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ange-ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 6e771fa214..e83ce9039c 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -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 |