; Fix remote shell file name selection

* lisp/shell.el (shell): Cease providing 'file-remote-p' as completion
predicate when reading remote shell file name.  The completion predicate
in 'read-file-name' gets the non-directory part of the file name, which
in particular does not include the remote part, if any, so this
predicate always fail in these settings.  Moreover, this predicate
didn't make a lot of sense to begin with.

diff --git a/lisp/shell.el b/lisp/shell.el
index c5cfbd985ed8e3fa91e8d1b987701bf96b3e37a7..b02f5f117a979539aed0ad3e37b15b7566c31c7d 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -905,8 +905,7 @@ 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
-                              #'file-remote-p))))))))))
+                              shell-file-name t shell-file-name))))))))))
 
   (setq buffer (if (or buffer (not (derived-mode-p 'shell-mode))
                        (comint-check-proc (current-buffer)))