Mercurial > emacs
changeset 3893:d04e12f9153f
* ange-ftp.el: Loosen file-name-handler-alist regexp so we can do
host name completion.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 24 Jun 1993 03:02:20 +0000 |
| parents | ad7559755428 |
| children | a2dc34c691cc |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Thu Jun 24 01:52:49 1993 +0000 +++ b/lisp/ange-ftp.el Thu Jun 24 03:02:20 1993 +0000 @@ -856,7 +856,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.27 $") +(defconst ange-ftp-version "$Revision: 1.28 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -3748,8 +3748,12 @@ (let (file-name-handler-alist) (apply operation args))))) + +;;; 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. ;;;###autoload -(or (assoc "^/[^/:]+:" file-name-handler-alist) +(or (assoc "^/[^/:]*\\([^/:]:\\|\\'\\)" file-name-handler-alist) (setq file-name-handler-alist (cons '("^/[^/:]+:" . ange-ftp-hook-function) file-name-handler-alist)))