(Man-getpage-in-background): Put GROFF_NO_SGR in env.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3dbf8d5e0296184ea3085e411ab51397e68c3c86..a3203789ccb2b8800fd1177b4914a0b904054aab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2002-12-21  Richard M. Stallman  <rms@gnu.org>
+
+       * man.el (Man-getpage-in-background): Put GROFF_NO_SGR in env.
+
+       * ls-lisp.el (original-insert-directory): Make this a variable,
+       don't set its function definition.
+       (insert-directory): Use funcall to call that function.
+
+       * bindings.el (help-echo): Change tooltip string.
+
+       * chistory.el (command-history-map): Move definition up.
+
+       * faces.el (help-xref-stack): Add defvar to avoid warning.
+
 2002-12-21  Andreas Schwab  <schwab@suse.de>
 
        * dired.el (dired-insert-directory): Preserve text properties
@@ -4963,12 +4977,11 @@
        * dired.el: Hide disabling of dired-find-alternate-file behind
        autoload-cookie.
 
-2002-07-31  Juanma Barranquero  <lektu@terra.es>
+2002-07-31  Tak Ota  <Takaaki.Ota@am.sony.com>  (tiny change)
 
        * makefile.w32-in: Revert some changes from 2002-07-23 because they
        don't work on MSVC/nmake builds.
        (update-subdirs-CMD): Generate the right list of subdirectories.
-       From Tak Ota <Takaaki.Ota@am.sony.com>.
 
 2002-07-30  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 

diff --git a/lisp/man.el b/lisp/man.el
index c5a5acd1282e6fa23dc72fb67d3a0b6df2931c9a..855565242e2e289e1b34cea73da19f98a6caa177 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -618,7 +618,9 @@ all sections related to a subject, put something appropriate into the
             (start-process manual-program buffer "sh" "-c"
                            (format (Man-build-man-command) man-args))
             'Man-bgproc-sentinel)
-         (progn
+         (let ((process-environment 
+                (cons "GROFF_NO_SGR=1" process-environment)))
+
            (let ((exit-status
                   (call-process shell-file-name nil (list buffer nil) nil "-c"
                                 (format (Man-build-man-command) man-args)))