732 |
(setenv "GROFF_NO_SGR" "1") |
(setenv "GROFF_NO_SGR" "1") |
733 |
(if (fboundp 'start-process) |
(if (fboundp 'start-process) |
734 |
(set-process-sentinel |
(set-process-sentinel |
735 |
(start-process manual-program buffer "sh" "-c" |
(start-process manual-program buffer |
736 |
|
shell-file-name shell-command-switch |
737 |
(format (Man-build-man-command) man-args)) |
(format (Man-build-man-command) man-args)) |
738 |
'Man-bgproc-sentinel) |
'Man-bgproc-sentinel) |
739 |
(let ((exit-status |
(let ((exit-status |
740 |
(call-process shell-file-name nil (list buffer nil) nil "-c" |
(call-process shell-file-name nil (list buffer nil) nil |
741 |
|
shell-command-switch |
742 |
(format (Man-build-man-command) man-args))) |
(format (Man-build-man-command) man-args))) |
743 |
(msg "")) |
(msg "")) |
744 |
(or (and (numberp exit-status) |
(or (and (numberp exit-status) |