master de265a0: Fix bug#49229 in shell.el

[Michael Albinus]

branch: master
commit de265a0c6ef8b1296d5a6130cb87b6dc74286b67
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Fix bug#49229 in shell.el
    
    * lisp/shell.el (shell): Ensure, that a remote shell is remote.
    (Bug#49229)
---
 lisp/shell.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/shell.el b/lisp/shell.el
index 62de5be..4339e8c 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)