diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-12-29 20:00:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-12-29 20:00:36 +0000 |
| commit | 5da640603d8884e49b5181c5b91eb1e398a19cd4 (patch) | |
| tree | 792400ecae1275eec8230fbe336c90d2037c7345 /lisp | |
| parent | d6b4d749d00f0871ba30b8b0123d96c64c6b9c70 (diff) | |
| download | emacs-5da640603d8884e49b5181c5b91eb1e398a19cd4.tar.gz emacs-5da640603d8884e49b5181c5b91eb1e398a19cd4.tar.bz2 emacs-5da640603d8884e49b5181c5b91eb1e398a19cd4.zip | |
(ange-ftp-start-process): Copy the environment.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/ange-ftp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index dc3b5a62da9..0277bd0aabc 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -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) |