diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-07-18 06:18:03 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-07-18 06:18:03 +0000 |
| commit | a8eb1307e34aab7dfc0d85c21a011b3194a07bf4 (patch) | |
| tree | 18dd6fe30668ec19c71649cbf7faa723a2fd49e5 /lisp/ange-ftp.el | |
| parent | b6a782a3c50f0dfdca05fed362e8e6ea75fecb00 (diff) | |
| download | emacs-a8eb1307e34aab7dfc0d85c21a011b3194a07bf4.tar.gz | |
* ange-ftp.el: Install the correct regexp in
file-name-handler-alist.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index c7d4ea48a79..29324c3a6a5 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.28 $") +(defconst ange-ftp-version "$Revision: 1.29 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -3755,7 +3755,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") ;;;###autoload (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 |