aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorMichael Albinus2022-02-06 09:43:13 +0100
committerMichael Albinus2022-02-06 09:43:13 +0100
commit372d0e0cc1fccddea94b6eebfb59967221a70778 (patch)
treeab9c5231e35534eca425a618d3ba6711fd194c6b /lisp
parentd90fd58c026b9007970730d431ae04b4925c30d7 (diff)
downloademacs-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')
-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