From: Eli Zaretskii Date: Tue, 11 May 2004 09:30:25 +0000 (+0000) Subject: (Man-getpage-in-background): Use shell-file-name X-Git-Tag: ttn-vms-21-2-B4~6278 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac00945e6ed2f53132dc7416062e168c376345bf;p=emacs.git (Man-getpage-in-background): Use shell-file-name and shell-command-switch variables instead of hard-coded values. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4656dd6d993..0d4d35ab13e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-05-11 Alexander Pohoyda (tiny change) + + * man.el (Man-getpage-in-background): Use shell-file-name + and shell-command-switch variables instead of hard-coded + values. + 2004-05-11 Eli Zaretskii * iimage.el: New file. diff --git a/lisp/man.el b/lisp/man.el index 7222c1bad15..983be4a91cc 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -732,11 +732,13 @@ all sections related to a subject, put something appropriate into the (setenv "GROFF_NO_SGR" "1") (if (fboundp 'start-process) (set-process-sentinel - (start-process manual-program buffer "sh" "-c" + (start-process manual-program buffer + shell-file-name shell-command-switch (format (Man-build-man-command) man-args)) 'Man-bgproc-sentinel) (let ((exit-status - (call-process shell-file-name nil (list buffer nil) nil "-c" + (call-process shell-file-name nil (list buffer nil) nil + shell-command-switch (format (Man-build-man-command) man-args))) (msg "")) (or (and (numberp exit-status)