diff options
| author | Michael Albinus | 2022-02-06 09:43:13 +0100 |
|---|---|---|
| committer | Michael Albinus | 2022-02-06 09:43:13 +0100 |
| commit | 372d0e0cc1fccddea94b6eebfb59967221a70778 (patch) | |
| tree | ab9c5231e35534eca425a618d3ba6711fd194c6b /lisp/eshell | |
| parent | d90fd58c026b9007970730d431ae04b4925c30d7 (diff) | |
| download | emacs-372d0e0cc1fccddea94b6eebfb59967221a70778.tar.gz emacs-372d0e0cc1fccddea94b6eebfb59967221a70778.zip | |
Make usage of su and sudo consistent in eshell (bug#53783)
* lisp/eshell/em-tramp.el (eshell/su, eshell/sudo):
Use `tramp-default-host' instead of "localhost".
Diffstat (limited to 'lisp/eshell')
| -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 |