Fix bug#49229 in shell.el
* lisp/shell.el (shell): Ensure, that a remote shell is remote. (Bug#49229)
This commit is contained in:
parent
9060fbd3b5
commit
de265a0c6e
1 changed files with 2 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue