Mercurial > emacs
comparison lisp/man.el @ 48918:199771712967
(Man-getpage-in-background): Put GROFF_NO_SGR in env.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 21 Dec 2002 20:21:25 +0000 |
| parents | 73c9cc6e8538 |
| children | e88404e8f2cf |
comparison
equal
deleted
inserted
replaced
| 48917:9b8d6678be5c | 48918:199771712967 |
|---|---|
| 616 (if (fboundp 'start-process) | 616 (if (fboundp 'start-process) |
| 617 (set-process-sentinel | 617 (set-process-sentinel |
| 618 (start-process manual-program buffer "sh" "-c" | 618 (start-process manual-program buffer "sh" "-c" |
| 619 (format (Man-build-man-command) man-args)) | 619 (format (Man-build-man-command) man-args)) |
| 620 'Man-bgproc-sentinel) | 620 'Man-bgproc-sentinel) |
| 621 (progn | 621 (let ((process-environment |
| 622 (cons "GROFF_NO_SGR=1" process-environment))) | |
| 623 | |
| 622 (let ((exit-status | 624 (let ((exit-status |
| 623 (call-process shell-file-name nil (list buffer nil) nil "-c" | 625 (call-process shell-file-name nil (list buffer nil) nil "-c" |
| 624 (format (Man-build-man-command) man-args))) | 626 (format (Man-build-man-command) man-args))) |
| 625 (msg "")) | 627 (msg "")) |
| 626 (or (and (numberp exit-status) | 628 (or (and (numberp exit-status) |