Fix bug#49229 in shell.el

* lisp/shell.el (shell): Ensure, that a remote shell is remote.
(Bug#49229)

diff --git a/lisp/shell.el b/lisp/shell.el
index 62de5be81720621e7d3cbd8b545feb2de1b2c02a..4339e8c0a3b9278f882654cda745f89b446bfc78 100644 (file)
--- 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)