# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 763684678 0
# Node ID f00fc681daa4f7008612a33608f8c7054bd9d71e
# Parent  6f48bd9145f962c7b5836b52399f113ebfc0e1ca
(Man-build-man-command): Redirect desc 2 to /dev/null.
(Man-getpage-in-background): Require env before printing message.

diff -r 6f48bd9145f9 -r f00fc681daa4 lisp/man.el
--- a/lisp/man.el	Mon Mar 14 22:30:12 1994 +0000
+++ b/lisp/man.el	Mon Mar 14 22:37:58 1994 +0000
@@ -271,7 +271,7 @@
 
 (defun Man-build-man-command ()
   "Builds the entire background manpage and cleaning command."
-  (let ((command (concat "man " Man-switches " %s 2>&1"))
+  (let ((command (concat "man " Man-switches " %s 2>/dev/null"))
 	(flist Man-filter-list))
     (while flist
       (let ((pcom (car (car flist)))
@@ -451,6 +451,7 @@
 	     (not override-reuse-p)
 	     buffer)
 	(Man-notify-when-ready buffer)
+      (require 'env)
       (message "Invoking man %s in background..." man-args)
       (setq buffer (generate-new-buffer bufname))
       (let ((process-environment (copy-sequence process-environment)))