Mercurial > emacs
changeset 7418:26587880d2b4
(ange-ftp-start-process): Bind file-name-handler-alist to nil
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 09 May 1994 18:05:03 +0000 |
| parents | 781e5bd267c4 |
| children | 0d0a01a0310c |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Mon May 09 14:24:52 1994 +0000 +++ b/lisp/ange-ftp.el Mon May 09 18:05:03 1994 +0000 @@ -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 @@ ;;;; 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 @@ 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