Mercurial > emacs
changeset 13789:7ccb22bca972
(ange-ftp-load): Added missing form to `cdr' down
tryfiles in `while' loop.
(ange-ftp-start-process): Bind env var TERM to dumb.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 21 Dec 1995 17:30:47 +0000 |
| parents | 9cba53e85252 |
| children | 10c76db77107 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Thu Dec 21 17:20:11 1995 +0000 +++ b/lisp/ange-ftp.el Thu Dec 21 17:30:47 1995 +0000 @@ -1778,7 +1778,10 @@ ;; It would be nice to make process-connection-type nil, ;; but that doesn't work: ftp never responds. ;; Can anyone find a fix for that? - (let ((process-connection-type t)) + (let ((process-connection-type t) + (process-environment process-environment)) + ;; This tells GNU ftp not to output any fancy escape sequences. + (setenv "TERM" "dumb") (if use-gateway (if ange-ftp-gateway-program-interactive (setq proc (ange-ftp-gwp-start host user name args)) @@ -3703,7 +3706,8 @@ (while (and tryfiles (not copy)) (condition-case error (setq copy (ange-ftp-file-local-copy (car tryfiles))) - (ftp-error nil))) + (ftp-error nil)) + (setq tryfiles (cdr tryfiles))) (if copy (unwind-protect (funcall 'load copy noerror nomessage nosuffix)