summaryrefslogtreecommitdiff
path: root/lisp/man.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1994-05-11 03:19:39 +0000
committerKarl Heuer <kwzh@gnu.org>1994-05-11 03:19:39 +0000
commit1afd4b6f7ade76f2321025cda215874d06629cc1 (patch)
treecbba2d696e6507e29935c0ed7b8fd45f059698e7 /lisp/man.el
parent6e4f8a0dfcf18e5c07bbee20171b734bf1b6ff80 (diff)
downloademacs-1afd4b6f7ade76f2321025cda215874d06629cc1.tar.gz
(Man-build-man-command): Use manual-program, not hardcoded name.
(Man-getpage-in-background): Likewise.
Diffstat (limited to 'lisp/man.el')
-rw-r--r--lisp/man.el4
1 files changed, 2 insertions, 2 deletions
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)