From: Kai Großjohann <kgrossjo@eu.uu.net>
Date: Mon, 7 Apr 2003 09:32:39 +0000 (+0000)
Subject: (Man-getpage-in-background): Set GROFF_NO_SGR env var in
X-Git-Tag: ttn-vms-21-2-B4~10608
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c17111abc2e31b9df9d5a418252912234fdf149;p=emacs.git

(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 c0df194b86e..49066a27d60 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-07  Kai Gro,A_(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 a6244b2d0f0..af69340aba3 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)))