[Emacs-diffs] /srv/bzr/emacs/trunk r111457: * net/tramp.el (tramp-eshell-directory-change): Check remote-path

[Michael Albinus]

------------------------------------------------------------
revno: 111457
committer: Michael Albinus <address@hidden
branch nick: trunk
timestamp: Wed 2013-01-09 10:49:27 +0100
message:
  * net/tramp.el (tramp-eshell-directory-change): Check remote-path
  first in session cache: When `tramp-own-remote-path' is in
  `tramp-remote-path', the remote path is only set in the session
  cache.
modified:
  lisp/ChangeLog
  lisp/net/tramp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-01-09 08:30:21 +0000
+++ b/lisp/ChangeLog    2013-01-09 09:49:27 +0000
@@ -1,3 +1,10 @@
+2013-01-09  Jürgen Hötzel  <address@hidden>
+
+       * net/tramp.el (tramp-eshell-directory-change): Check remote-path
+       first in session cache: When `tramp-own-remote-path' is in
+       `tramp-remote-path', the remote path is only set in the session
+       cache.
+
 2013-01-09  Glenn Morris  <address@hidden>
 
        * emacs-lisp/trace.el (trace-function-foreground)

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2013-01-08 04:40:09 +0000
+++ b/lisp/net/tramp.el 2013-01-09 09:49:27 +0000
@@ -3901,7 +3901,12 @@
            (with-parsed-tramp-file-name default-directory nil
              (mapconcat
               'identity
-              (tramp-get-connection-property v "remote-path" nil)
+              (or
+               ;; When `tramp-own-remote-path' is in `tramp-remote-path',
+               ;; the remote path is only set in the session cache.
+               (tramp-get-connection-property
+                (tramp-get-connection-process v) "remote-path" nil)
+               (tramp-get-connection-property v "remote-path" nil))
               ":"))
          (getenv "PATH"))))