(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 4656dd6d993fdb660df55c6c846063c9b12fe7f9..0d4d35ab13ea49b6c645f18a3f401aa1d62f7d1d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-05-11  Alexander Pohoyda  <alexander.pohoyda@gmx.net>  (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  <eliz@gnu.org>
 
        * iimage.el: New file.

diff --git a/lisp/man.el b/lisp/man.el
index 7222c1bad15428e35f0df3a21f552b43241d559c..983be4a91cc3f5716ce7992846562226d0a53df0 100644 (file)
--- 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)