From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 11 May 1994 03:19:39 +0000 (+0000)
Subject: (Man-build-man-command): Use manual-program, not hardcoded name.
X-Git-Tag: emacs-19.34~8400
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17077ab35f8b4986b89dc3eca3605b105b889593;p=emacs.git

(Man-build-man-command): Use manual-program, not hardcoded name.
(Man-getpage-in-background): Likewise.
---

diff --git a/lisp/man.el b/lisp/man.el
index 29d9bf9f1da..40408cf87bb 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -279,7 +279,7 @@ This regular expression should start with a `^' character.")
 
 (defun Man-build-man-command ()
   "Builds the entire background manpage and cleaning command."
-  (let ((command (concat "man " Man-switches " %s 2>/dev/null"))
+  (let ((command (concat manual-program " " Man-switches " %s 2>/dev/null"))
 	(flist Man-filter-list))
     (while flist
       (let ((pcom (car (car flist)))
@@ -462,7 +462,7 @@ start a background process even if a buffer already exists and
 	     buffer)
 	(Man-notify-when-ready buffer)
       (require 'env)
-      (message "Invoking man %s in background." man-args)
+      (message "Invoking %s %s in background." manual-program man-args)
       (setq buffer (generate-new-buffer bufname))
       (save-excursion
 	(set-buffer buffer)