Mercurial > emacs
changeset 53415:d2a77d389b0e
(ange-ftp-start-process): Copy the environment.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 29 Dec 2003 20:00:36 +0000 |
| parents | a2ead0e84644 |
| children | 2b737d6ca0d7 |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Mon Dec 29 19:59:24 2003 +0000 +++ b/lisp/net/ange-ftp.el Mon Dec 29 20:00:36 2003 +0000 @@ -1918,7 +1918,8 @@ ;; 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)