623 |
(start-process manual-program buffer "sh" "-c" |
(start-process manual-program buffer "sh" "-c" |
624 |
(format (Man-build-man-command) man-args)) |
(format (Man-build-man-command) man-args)) |
625 |
'Man-bgproc-sentinel) |
'Man-bgproc-sentinel) |
626 |
(let ((process-environment |
(setenv "GROFF_NO_SGR" "1") |
627 |
(cons "GROFF_NO_SGR=1" process-environment))) |
(let ((exit-status |
628 |
|
(call-process shell-file-name nil (list buffer nil) nil "-c" |
629 |
(let ((exit-status |
(format (Man-build-man-command) man-args))) |
630 |
(call-process shell-file-name nil (list buffer nil) nil "-c" |
(msg "")) |
631 |
(format (Man-build-man-command) man-args))) |
(or (and (numberp exit-status) |
632 |
(msg "")) |
(= exit-status 0)) |
633 |
(or (and (numberp exit-status) |
(and (numberp exit-status) |
634 |
(= exit-status 0)) |
(setq msg |
635 |
(and (numberp exit-status) |
(format "exited abnormally with code %d" |
636 |
(setq msg |
exit-status))) |
637 |
(format "exited abnormally with code %d" |
(setq msg exit-status)) |
638 |
exit-status))) |
(Man-bgproc-sentinel bufname msg))))))) |
|
(setq msg exit-status)) |
|
|
(Man-bgproc-sentinel bufname msg)))))))) |
|
639 |
|
|
640 |
(defun Man-notify-when-ready (man-buffer) |
(defun Man-notify-when-ready (man-buffer) |
641 |
"Notify the user when MAN-BUFFER is ready. |
"Notify the user when MAN-BUFFER is ready. |