diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-09 18:05:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-09 18:05:03 +0000 |
| commit | a9864bafca2075ea92ab7df6d4270dfb5180c5a8 (patch) | |
| tree | 07c3322bbe6a9acb6b455d9d540c3908808060da /lisp/ange-ftp.el | |
| parent | 2e25fb420567475534ef5ff79c8a443a2f705295 (diff) | |
| download | emacs-a9864bafca2075ea92ab7df6d4270dfb5180c5a8.tar.gz | |
(ange-ftp-start-process): Bind file-name-handler-alist to nil
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 4589a24b96d..233936ae046 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -387,7 +387,7 @@ ;;; 2. Some combinations of FTP clients and servers break and get out of sync ;;; when asked to list a non-existent directory. Some of the ai.mit.edu ;;; machines cause this problem for some FTP clients. Using -;;; ange-ftp-kill-process can be used to restart the ftp process, which +;;; ange-ftp-kill-ftp-process can restart the ftp process, which ;;; should get things back in synch. ;;; ;;; 3. Ange-ftp does not check to make sure that when creating a new file, @@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.49 $") +(defconst ange-ftp-version "$Revision: 1.50 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1747,6 +1747,11 @@ on the gateway machine to do the ftp instead." ange-ftp-gateway-ftp-program-name ange-ftp-ftp-program-name)) (args (append (list ftp-prog) ange-ftp-ftp-program-args)) + ;; Without the following binding, ange-ftp-start-process + ;; recurses on file-accessible-directory-p, since it needs to + ;; restart its process in order to determine anything about + ;; default-directory. + (file-name-handler-alist) (default-directory (if (file-accessible-directory-p default-directory) default-directory |