diff options
| author | Eli Zaretskii | 2004-05-11 09:30:25 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2004-05-11 09:30:25 +0000 |
| commit | ac00945e6ed2f53132dc7416062e168c376345bf (patch) | |
| tree | 46cf2f7934f1011816be59232b57bafa0e0dcae8 | |
| parent | 1e77b112097a46ae2b88083a7588e1c7f105444f (diff) | |
| download | emacs-ac00945e6ed2f53132dc7416062e168c376345bf.tar.gz emacs-ac00945e6ed2f53132dc7416062e168c376345bf.zip | |
(Man-getpage-in-background): Use shell-file-name
and shell-command-switch variables instead of hard-coded
values.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/man.el | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4656dd6d993..0d4d35ab13e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2004-05-11 Alexander Pohoyda <alexander.pohoyda@gmx.net> (tiny change) | ||
| 2 | |||
| 3 | * man.el (Man-getpage-in-background): Use shell-file-name | ||
| 4 | and shell-command-switch variables instead of hard-coded | ||
| 5 | values. | ||
| 6 | |||
| 1 | 2004-05-11 Eli Zaretskii <eliz@gnu.org> | 7 | 2004-05-11 Eli Zaretskii <eliz@gnu.org> |
| 2 | 8 | ||
| 3 | * iimage.el: New file. | 9 | * 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 | |||
| 732 | (setenv "GROFF_NO_SGR" "1") | 732 | (setenv "GROFF_NO_SGR" "1") |
| 733 | (if (fboundp 'start-process) | 733 | (if (fboundp 'start-process) |
| 734 | (set-process-sentinel | 734 | (set-process-sentinel |
| 735 | (start-process manual-program buffer "sh" "-c" | 735 | (start-process manual-program buffer |
| 736 | shell-file-name shell-command-switch | ||
| 736 | (format (Man-build-man-command) man-args)) | 737 | (format (Man-build-man-command) man-args)) |
| 737 | 'Man-bgproc-sentinel) | 738 | 'Man-bgproc-sentinel) |
| 738 | (let ((exit-status | 739 | (let ((exit-status |
| 739 | (call-process shell-file-name nil (list buffer nil) nil "-c" | 740 | (call-process shell-file-name nil (list buffer nil) nil |
| 741 | shell-command-switch | ||
| 740 | (format (Man-build-man-command) man-args))) | 742 | (format (Man-build-man-command) man-args))) |
| 741 | (msg "")) | 743 | (msg "")) |
| 742 | (or (and (numberp exit-status) | 744 | (or (and (numberp exit-status) |