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

(cherry picked from commit 48f9d6aafea0a9790d1f78d4a4037cbcff4f799a)

diff --git a/lisp/man.el b/lisp/man.el
index bd21d8c3fd4fc8efa52f6326ef00fda5664aea6c..d6a2f6f5b91a69a18e9188eed9b4e405a805280d 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -553,9 +553,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.