diff options
| -rw-r--r-- | lisp/shell.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index f046d7830e6..5c228a5eba9 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -727,8 +727,8 @@ Otherwise, one argument `-i' is passed to the shell. (null explicit-shell-file-name) (null (getenv "ESHELL"))) (set (make-local-variable 'explicit-shell-file-name) - (expand-file-name - (file-local-name + (file-local-name + (expand-file-name (read-file-name "Remote shell path: " default-directory shell-file-name t shell-file-name))))))) |