Mercurial > emacs
comparison lisp/man.el @ 7453:9b14642f7d52
(Man-build-man-command): Use manual-program, not hardcoded name.
(Man-getpage-in-background): Likewise.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 11 May 1994 03:19:39 +0000 |
parents | 359c1d0a565e |
children | b3cacdf7bbfa |
comparison
equal
deleted
inserted
replaced
7452:359c1d0a565e | 7453:9b14642f7d52 |
---|---|
277 (substring str 0 (1- (length str))) | 277 (substring str 0 (1- (length str))) |
278 str)) | 278 str)) |
279 | 279 |
280 (defun Man-build-man-command () | 280 (defun Man-build-man-command () |
281 "Builds the entire background manpage and cleaning command." | 281 "Builds the entire background manpage and cleaning command." |
282 (let ((command (concat "man " Man-switches " %s 2>/dev/null")) | 282 (let ((command (concat manual-program " " Man-switches " %s 2>/dev/null")) |
283 (flist Man-filter-list)) | 283 (flist Man-filter-list)) |
284 (while flist | 284 (while flist |
285 (let ((pcom (car (car flist))) | 285 (let ((pcom (car (car flist))) |
286 (pargs (car (cdr (car flist))))) | 286 (pargs (car (cdr (car flist))))) |
287 (setq flist (cdr flist)) | 287 (setq flist (cdr flist)) |
460 (if (and Man-reuse-okay-p | 460 (if (and Man-reuse-okay-p |
461 (not override-reuse-p) | 461 (not override-reuse-p) |
462 buffer) | 462 buffer) |
463 (Man-notify-when-ready buffer) | 463 (Man-notify-when-ready buffer) |
464 (require 'env) | 464 (require 'env) |
465 (message "Invoking man %s in background." man-args) | 465 (message "Invoking %s %s in background." manual-program man-args) |
466 (setq buffer (generate-new-buffer bufname)) | 466 (setq buffer (generate-new-buffer bufname)) |
467 (save-excursion | 467 (save-excursion |
468 (set-buffer buffer) | 468 (set-buffer buffer) |
469 (setq Man-original-frame (selected-frame))) | 469 (setq Man-original-frame (selected-frame))) |
470 (let ((process-environment (copy-sequence process-environment))) | 470 (let ((process-environment (copy-sequence process-environment))) |