comparison lisp/ange-ftp.el @ 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.

13788:9cba53e85252

	     exec-directory))
	 proc)
    ;; 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))
      (if use-gateway
	  (if ange-ftp-gateway-program-interactive
	      (setq proc (ange-ftp-gwp-start host user name args))
	    (setq proc (apply 'start-process name name
			      (append (list ange-ftp-gateway-program

			(list (concat file ".elc") (concat file ".el") file)))
	    copy)
	(while (and tryfiles (not copy))
	  (condition-case error
	      (setq copy (ange-ftp-file-local-copy (car tryfiles)))
	    (ftp-error nil)))
	(if copy
	    (unwind-protect
		(funcall 'load copy noerror nomessage nosuffix)
	      (delete-file copy))
	  (or noerror

13789:7ccb22bca972

	     exec-directory))
	 proc)
    ;; 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)
	  (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))
	    (setq proc (apply 'start-process name name
			      (append (list ange-ftp-gateway-program

			(list (concat file ".elc") (concat file ".el") file)))
	    copy)
	(while (and tryfiles (not copy))
	  (condition-case error
	      (setq copy (ange-ftp-file-local-copy (car tryfiles)))
	    (ftp-error nil))
	  (setq tryfiles (cdr tryfiles)))
	(if copy
	    (unwind-protect
		(funcall 'load copy noerror nomessage nosuffix)
	      (delete-file copy))
	  (or noerror