From 560fcebc15dbfff239add814f75d062158cc5893 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 21 Dec 1995 17:30:47 +0000 Subject: [PATCH] (ange-ftp-load): Added missing form to `cdr' down tryfiles in `while' loop. (ange-ftp-start-process): Bind env var TERM to dumb. --- lisp/ange-ftp.el | 8 ++++++-- 1 file 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) -- 2.39.2