From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 28 Jun 2021 06:14:10 +0000 (+0200)
Subject: Fix bug#49229 in shell.el
X-Git-Tag: emacs-28.0.90~2015
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de265a0c6ef8b1296d5a6130cb87b6dc74286b67;p=emacs.git

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 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)