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-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~26
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=48f9d6aafea0a9790d1f78d4a4037cbcff4f799a;p=emacs.git

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

diff --git a/lisp/man.el b/lisp/man.el
index 75f87feb8e8..dcfab8d2035 100644
--- 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.