mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

(ange-ftp-start-process): Copy the environment.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-12-29 20:00:36 +00:00
parent d6b4d749d0
commit 5da640603d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/net/ange-ftp.el
View File

@ -1918,7 +1918,8 @@ on the gateway machine to do the ftp instead."
;; but that doesn't work: ftp never responds. ;; but that doesn't work: ftp never responds.
;; Can anyone find a fix for that? ;; Can anyone find a fix for that?
(let ((process-connection-type t) (let ((process-connection-type t)
(process-environment process-environment) ;; Copy this so we don't alter it permanently.
(process-environment (copy-tree process-environment))
(buffer (get-buffer-create name))) (buffer (get-buffer-create name)))
(save-excursion (save-excursion
(set-buffer buffer) (set-buffer buffer)