Fix bug#49229 in shell.el

* lisp/shell.el (shell): Ensure, that a remote shell is remote.
(Bug#49229)
This commit is contained in:
Michael Albinus 2021-06-28 08:14:10 +02:00
parent 9060fbd3b5
commit de265a0c6e

View file

@ -759,7 +759,8 @@ Make the shell buffer the current buffer, and return it.
(file-local-name
(expand-file-name
(read-file-name "Remote shell path: " default-directory
shell-file-name t shell-file-name)))))
shell-file-name t shell-file-name
#'file-remote-p)))))
;; Rain or shine, BUFFER must be current by now.
(unless (comint-check-proc buffer)