(Man-getpage-in-background): Set GROFF_NO_SGR env var in

all cases, whether or not start-process is fboundp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c0df194b86edae4f7d32cf9136bee98b7b8e1d80..49066a27d600127ddf4de4deac9dd81903a5e43f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-07  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+       * 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  <rms@gnu.org>
 
        * calendar/cal-menu.el (cal-menu-update): Use easy-menu-create-menu

diff --git a/lisp/man.el b/lisp/man.el
index a6244b2d0f08eefb0d6754a2f69786a293f63170..af69340aba370e7a320343a7acfb7f958e10f17f 100644 (file)
--- 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)))