* lisp/man.el (Man-shell-file-name): Ensure a Bourne shell. (Bug#75308)

diff --git a/lisp/man.el b/lisp/man.el
index 75f87feb8e8ea78cee2ca51842279da441f873d5..dcfab8d2035a1f738d5ebd4a8994592da49d5bde 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -578,9 +578,9 @@ Otherwise, the value is whatever the function
 
 (defun Man-shell-file-name ()
   "Return a proper shell file name, respecting remote directories."
-  (or ; This works also in the local case.
+  (if (connection-local-p shell-file-name)
       (connection-local-value shell-file-name)
-      "/bin/sh"))
+    "/bin/sh"))
 
 (defun Man-header-file-path ()
   "Return the C header file search path that Man should use.