From c91c0663e5610624e1928d3df9d6263dcd843dc7 Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 18 Jan 2026 12:47:47 +0100
Subject: [PATCH] Fix `Man-shell-file-name'

* lisp/man.el (Man-shell-file-name): Fix for MS Windows.
(Bug#80212)
---
 lisp/man.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/man.el b/lisp/man.el
index 549dfd6d955..47301f02a2a 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -559,9 +559,12 @@ Otherwise, the value is whatever the function
 
 (defun Man-shell-file-name ()
   "Return a proper shell file name, respecting remote directories."
+  ;; It must be a Bourne-shell.  (Bug#75308, Bug#80212)
   (if (connection-local-p shell-file-name)
       (connection-local-value shell-file-name)
-    "/bin/sh"))
+    (if (memq system-type '(windows-nt ms-dos))
+        shell-file-name
+      "/bin/sh")))
 
 (defun Man-header-file-path ()
   "Return the C header file search path that Man should use.