Commit 560fcebc authored by Karl Heuer's avatar Karl Heuer

(ange-ftp-load): Added missing form to `cdr' down

tryfiles in `while' loop.

(ange-ftp-start-process): Bind env var TERM to dumb.
parent 6b4eb593
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment