diff options
| -rw-r--r-- | lisp/eshell/em-tramp.el | 4 |
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 |