mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +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.
;; Can anyone find a fix for that?
(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)))
(save-excursion
(set-buffer buffer)