diff options
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/man.el b/lisp/man.el index 7222c1bad15..5a07045dda9 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -732,11 +732,14 @@ 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 | (if (eq system-type 'cygwin) shell-file-name "sh") | ||
| 737 | shell-command-switch | ||
| 736 | (format (Man-build-man-command) man-args)) | 738 | (format (Man-build-man-command) man-args)) |
| 737 | 'Man-bgproc-sentinel) | 739 | 'Man-bgproc-sentinel) |
| 738 | (let ((exit-status | 740 | (let ((exit-status |
| 739 | (call-process shell-file-name nil (list buffer nil) nil "-c" | 741 | (call-process shell-file-name nil (list buffer nil) nil |
| 742 | shell-command-switch | ||
| 740 | (format (Man-build-man-command) man-args))) | 743 | (format (Man-build-man-command) man-args))) |
| 741 | (msg "")) | 744 | (msg "")) |
| 742 | (or (and (numberp exit-status) | 745 | (or (and (numberp exit-status) |