diff options
| -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 6e771fa214b..e83ce9039cc 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el | |||
| @@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number." | |||
| 857 | ;;;; Internal variables. | 857 | ;;;; Internal variables. |
| 858 | ;;;; ------------------------------------------------------------ | 858 | ;;;; ------------------------------------------------------------ |
| 859 | 859 | ||
| 860 | (defconst ange-ftp-version "$Revision: 1.9 $") | 860 | (defconst ange-ftp-version "$Revision: 1.10 $") |
| 861 | 861 | ||
| 862 | (defvar ange-ftp-data-buffer-name " *ftp data*" | 862 | (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 863 | "Buffer name to hold directory listing data received from ftp process.") | 863 | "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.") | |||
| 3732 | (apply operation args))))) | 3732 | (apply operation args))))) |
| 3733 | 3733 | ||
| 3734 | ;;;###autoload | 3734 | ;;;###autoload |
| 3735 | (or (assoc "/[^/:]+:" file-name-handler-alist) | 3735 | (or (assoc "^/[^/:]+:" file-name-handler-alist) |
| 3736 | (setq file-name-handler-alist | 3736 | (setq file-name-handler-alist |
| 3737 | (cons '("/[^/:]+:" . ange-ftp-hook-function) | 3737 | (cons '("^/[^/:]+:" . ange-ftp-hook-function) |
| 3738 | file-name-handler-alist))) | 3738 | file-name-handler-alist))) |
| 3739 | 3739 | ||
| 3740 | ;;; The above two forms are sufficient to cause this file to be loaded | 3740 | ;;; The above two forms are sufficient to cause this file to be loaded |