master ca79916179f: Respect 'manual-program' variable

[Stefan Kangas]

branch: master
commit ca79916179ffb5ddc801e1ccb12c5ff72f6516d8
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Respect 'manual-program' variable
    
    * lisp/man.el (Man-man-k-flags): Respect 'manual-program'
    variable.
---
 lisp/man.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/man.el b/lisp/man.el
index 58a0234bc83..576c24c74c0 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -978,14 +978,15 @@ foo(sec)[, bar(sec) [, ...]] [other stuff] - description"
   ;; seems like the safest choice, but `man -k apropos' seems almost as safe
   ;; and usually returns a much shorter output.
   (with-temp-buffer
-    (with-demoted-errors "%S" (call-process "man" nil t nil "-k" "apropos"))
+    (with-demoted-errors "%S"
+      (call-process manual-program nil t nil "-k" "apropos"))
     (let ((lines (count-lines (point-min) (point-max)))
           (completions (Man-parse-man-k)))
       (if (>= (length completions) lines)
           '("-k") ;; "-k" seems to return sane results: look no further!
         (erase-buffer)
         ;; Try "-k -l" (bug#73656).
-        (with-demoted-errors "%S" (call-process "man" nil t nil
+        (with-demoted-errors "%S" (call-process manual-program nil t nil
                                                 "-k" "-l" "apropos"))
         (let ((lines (count-lines (point-min) (point-max)))
               (completions (Man-parse-man-k)))