[Emacs-diffs] Changes to emacs/lisp/net/tramp.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/11/08 20:15:25

Index: net/tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.157
retrieving revision 1.158
diff -u -b -r1.157 -r1.158
--- net/tramp.el        7 Nov 2007 20:41:15 -0000       1.157
+++ net/tramp.el        8 Nov 2007 20:15:25 -0000       1.158
@@ -6020,7 +6020,8 @@
   "Maybe open a connection VEC.
 Does not do anything if a connection is already open, but re-opens the
 connection if a previous connection has died for some reason."
-  (let ((p (tramp-get-connection-process vec)))
+  (let ((p (tramp-get-connection-process vec))
+       (process-environment (copy-sequence process-environment)))
 
     ;; If too much time has passed since last command was sent, look
     ;; whether process is still alive.  If it isn't, kill it.  When
@@ -6072,7 +6073,6 @@
       (setenv "PROMPT_COMMAND")
       (setenv "PS1" "$ ")
       (let* ((target-alist (tramp-compute-multi-hops vec))
-            (process-environment (copy-sequence process-environment))
             (process-connection-type tramp-process-connection-type)
             (process-adaptive-read-buffering nil)
             (coding-system-for-read nil)