From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 16 Feb 2025 10:00:46 +0000 (+0100)
Subject: * lisp/man.el (Man-shell-file-name): Ensure a Bourne shell.  (Bug#75308)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c84828a4a1cf4d9060c08792efa306b029bb7799;p=emacs.git

* 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 bd21d8c3fd4..d6a2f6f5b91 100644
--- 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.