1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00

Fix Bug#29149 in shell.el

* lisp/shell.el (shell): Change order of `file-local-name' and
`expand-file-name' calls.  Otherwise, the local file name
would be extended by a drive letter, even when it is a remote
file, seen from w32.  (Bug#29149)
This commit is contained in:
Michael Albinus 2018-01-13 17:48:10 +01:00
parent 1a5293e724
commit 45ebf3afc6

View file

@ -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)))))))