diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2021-06-28 08:14:10 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2021-06-28 08:14:10 +0200 |
| commit | de265a0c6ef8b1296d5a6130cb87b6dc74286b67 (patch) | |
| tree | 6e0d830f6a321b5c6506de0d179e69d2260d248b /lisp | |
| parent | 9060fbd3b5cd3ccae5ef88a0204332b75af94532 (diff) | |
| download | emacs-de265a0c6ef8b1296d5a6130cb87b6dc74286b67.tar.gz emacs-de265a0c6ef8b1296d5a6130cb87b6dc74286b67.tar.bz2 emacs-de265a0c6ef8b1296d5a6130cb87b6dc74286b67.zip | |
Fix bug#49229 in shell.el
* lisp/shell.el (shell): Ensure, that a remote shell is remote.
(Bug#49229)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/shell.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 62de5be8172..4339e8c0a3b 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -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) |