[Emacs-diffs] /srv/bzr/emacs/trunk r109855: * eshell/em-unix.el (eshell/sudo): When we have an ad-hoc

[Michael Albinus]

------------------------------------------------------------
revno: 109855
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Sun 2012-09-02 11:57:19 +0200
message:
  * eshell/em-unix.el (eshell/sudo): When we have an ad-hoc
  remote definition of `default-directory', ensure we can connect.
modified:
  lisp/ChangeLog
  lisp/eshell/em-unix.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-02 09:31:45 +0000
+++ b/lisp/ChangeLog    2012-09-02 09:57:19 +0000
@@ -1,3 +1,8 @@
+2012-09-02  Michael Albinus  <address@hidden>
+
+       * eshell/em-unix.el (eshell/sudo): When we have an ad-hoc
+       remote definition of `default-directory', ensure we can connect.
+
 2012-09-02  Juri Linkov  <address@hidden>
 
        Toggle whitespace matching mode with M-s SPC.

=== modified file 'lisp/eshell/em-unix.el'
--- a/lisp/eshell/em-unix.el    2012-07-16 11:42:01 +0000
+++ b/lisp/eshell/em-unix.el    2012-09-02 09:57:19 +0000
@@ -1110,6 +1110,8 @@
                          (format "%s|sudo:address@hidden:%s"
                                  (substring prefix 0 -1) user host dir)
                        (format "/sudo:address@hidden:%s" user host dir))))
+               ;; Ensure, that Tramp has connected to that construct already.
+               (file-exists-p default-directory)
                (eshell-named-command (car orig-args) (cdr orig-args))))))))
 
 (put 'eshell/sudo 'eshell-no-numeric-conversions t)