667 |
;; the page will actually be displayed, but it seems |
;; the page will actually be displayed, but it seems |
668 |
;; reasonable. |
;; reasonable. |
669 |
(setenv "COLUMNS" (number-to-string (frame-width))))) |
(setenv "COLUMNS" (number-to-string (frame-width))))) |
670 |
|
(setenv "GROFF_NO_SGR" "1") |
671 |
(if (fboundp 'start-process) |
(if (fboundp 'start-process) |
672 |
(set-process-sentinel |
(set-process-sentinel |
673 |
(start-process manual-program buffer "sh" "-c" |
(start-process manual-program buffer "sh" "-c" |
674 |
(format (Man-build-man-command) man-args)) |
(format (Man-build-man-command) man-args)) |
675 |
'Man-bgproc-sentinel) |
'Man-bgproc-sentinel) |
|
(setenv "GROFF_NO_SGR" "1") |
|
676 |
(let ((exit-status |
(let ((exit-status |
677 |
(call-process shell-file-name nil (list buffer nil) nil "-c" |
(call-process shell-file-name nil (list buffer nil) nil "-c" |
678 |
(format (Man-build-man-command) man-args))) |
(format (Man-build-man-command) man-args))) |