diff options
| author | Jim Blandy | 1993-07-18 06:18:03 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-07-18 06:18:03 +0000 |
| commit | 8a30241de33ee92f343ee7726869b5a5fc6f688f (patch) | |
| tree | 27ee44e4e255c82c6cfd1da3412a5d47edc1d3f2 | |
| parent | af40bbfa99a32434416278aff411cd2a2dd05db4 (diff) | |
| download | emacs-8a30241de33ee92f343ee7726869b5a5fc6f688f.tar.gz emacs-8a30241de33ee92f343ee7726869b5a5fc6f688f.zip | |
* ange-ftp.el: Install the correct regexp in
file-name-handler-alist.
| -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." | |||
| 856 | ;;;; Internal variables. | 856 | ;;;; Internal variables. |
| 857 | ;;;; ------------------------------------------------------------ | 857 | ;;;; ------------------------------------------------------------ |
| 858 | 858 | ||
| 859 | (defconst ange-ftp-version "$Revision: 1.28 $") | 859 | (defconst ange-ftp-version "$Revision: 1.29 $") |
| 860 | 860 | ||
| 861 | (defvar ange-ftp-data-buffer-name " *ftp data*" | 861 | (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 862 | "Buffer name to hold directory listing data received from ftp process.") | 862 | "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.") | |||
| 3755 | ;;;###autoload | 3755 | ;;;###autoload |
| 3756 | (or (assoc "^/[^/:]*\\([^/:]:\\|\\'\\)" file-name-handler-alist) | 3756 | (or (assoc "^/[^/:]*\\([^/:]:\\|\\'\\)" file-name-handler-alist) |
| 3757 | (setq file-name-handler-alist | 3757 | (setq file-name-handler-alist |
| 3758 | (cons '("^/[^/:]+:" . ange-ftp-hook-function) | 3758 | (cons '("^/[^/:]*\\([^/:]:\\|\\'\\)" . ange-ftp-hook-function) |
| 3759 | file-name-handler-alist))) | 3759 | file-name-handler-alist))) |
| 3760 | 3760 | ||
| 3761 | ;;; The above two forms are sufficient to cause this file to be loaded | 3761 | ;;; The above two forms are sufficient to cause this file to be loaded |