aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/eshell/em-tramp.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/eshell/em-tramp.el b/lisp/eshell/em-tramp.el
index 2afd4fe066a..aebbc36e71d 100644
--- a/lisp/eshell/em-tramp.el
+++ b/lisp/eshell/em-tramp.el
@@ -71,7 +71,7 @@ Become another USER during a login session.")
71 (throw 'eshell-replace-command 71 (throw 'eshell-replace-command
72 (let ((user "root") 72 (let ((user "root")
73 (host (or (file-remote-p default-directory 'host) 73 (host (or (file-remote-p default-directory 'host)
74 "localhost")) 74 tramp-default-host))
75 (dir (file-local-name (expand-file-name default-directory))) 75 (dir (file-local-name (expand-file-name default-directory)))
76 (prefix (file-remote-p default-directory))) 76 (prefix (file-remote-p default-directory)))
77 (dolist (arg args) 77 (dolist (arg args)
@@ -106,7 +106,7 @@ Execute a COMMAND as the superuser or another USER.")
106 (throw 'eshell-external 106 (throw 'eshell-external
107 (let* ((user (or user "root")) 107 (let* ((user (or user "root"))
108 (host (or (file-remote-p default-directory 'host) 108 (host (or (file-remote-p default-directory 'host)
109 "localhost")) 109 tramp-default-host))
110 (dir (file-local-name (expand-file-name default-directory))) 110 (dir (file-local-name (expand-file-name default-directory)))
111 (prefix (file-remote-p default-directory)) 111 (prefix (file-remote-p default-directory))
112 (default-directory 112 (default-directory