diff options
author | Kai Großjohann <[email protected]> | 2003-04-07 09:32:39 +0000 |
---|---|---|
committer | Kai Großjohann <[email protected]> | 2003-04-07 09:32:39 +0000 |
commit | 2c17111abc2e31b9df9d5a418252912234fdf149 (patch) | |
tree | 6f51537b5794c9ab6dbbc8cf1dae1aadb460b699 | |
parent | 333c5fc5b9b3ad85a2c906c8e2e3a548ec04e49e (diff) |
(Man-getpage-in-background): Set GROFF_NO_SGR env var in
all cases, whether or not start-process is fboundp.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/man.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c0df194b86..49066a27d6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-04-07 Kai Gro,A_(Bjohann <[email protected]> + + * man.el (Man-getpage-in-background): Set GROFF_NO_SGR env var in + all cases, whether or not start-process is fboundp. + 2003-04-06 Richard M. Stallman <[email protected]> * calendar/cal-menu.el (cal-menu-update): Use easy-menu-create-menu diff --git a/lisp/man.el b/lisp/man.el index a6244b2d0f..af69340aba 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -667,12 +667,12 @@ all sections related to a subject, put something appropriate into the ;; the page will actually be displayed, but it seems ;; reasonable. (setenv "COLUMNS" (number-to-string (frame-width))))) + (setenv "GROFF_NO_SGR" "1") (if (fboundp 'start-process) (set-process-sentinel (start-process manual-program buffer "sh" "-c" (format (Man-build-man-command) man-args)) 'Man-bgproc-sentinel) - (setenv "GROFF_NO_SGR" "1") (let ((exit-status (call-process shell-file-name nil (list buffer nil) nil "-c" (format (Man-build-man-command) man-args))) |