diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-12-21 17:30:47 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-12-21 17:30:47 +0000 |
| commit | 1ed1e207f649a5760a28769ebb964f7af73f6f3c (patch) | |
| tree | 3a545743d18d1e8f543461b5b4b3a8df9b79e4ec /lisp/ange-ftp.el | |
| parent | 65028f723b12c8b9fe0a7b00ab1f667bf2eb0dfb (diff) | |
| download | emacs-1ed1e207f649a5760a28769ebb964f7af73f6f3c.tar.gz | |
(ange-ftp-load): Added missing form to `cdr' down
tryfiles in `while' loop.
(ange-ftp-start-process): Bind env var TERM to dumb.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 4ad8564bc70..d93a3735d8c 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -1778,7 +1778,10 @@ on the gateway machine to do the ftp instead." ;; 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 @@ system TYPE.") (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) |