mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source 
tryfiles in `while' loop.

(ange-ftp-start-process): Bind env var TERM to dumb.
This commit is contained in:
Karl Heuer 1995-12-21 17:30:47 +00:00
parent 6b4eb5930d
commit 560fcebc15
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ange-ftp.el
View File

@ -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)