* eshell/em-unix.el (eshell/sudo): When we have an ad-hoc

remote definition of `default-directory', ensure we can connect.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b56672ac84f03da658d2088b3f599deb8ea301d1..62d3097ccaafa64589a4a225c9f05c9cbf3fc1af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-09-02  Michael Albinus  <michael.albinus@gmx.de>
+
+       * 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  <juri@jurta.org>
 
        Toggle whitespace matching mode with M-s SPC.

diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el
index 35f7a0a9e3d08e3af15f051f61678cf05742fac0..58402e375081a479bac54d5f10239fcd1f80f273 100644 (file)
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -1110,6 +1110,8 @@ Execute a COMMAND as the superuser or another USER.")
                          (format "%s|sudo:%s@%s:%s"
                                  (substring prefix 0 -1) user host dir)
                        (format "/sudo:%s@%s:%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)