summaryrefslogtreecommitdiff
path: root/lisp/man.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-03-14 22:37:58 +0000
committerRichard M. Stallman <rms@gnu.org>1994-03-14 22:37:58 +0000
commiteaf1946c2175eccd54181a0242862ba0334c8ab5 (patch)
tree9eb6d8fa3c81d1ae5651f92bb41a100977a7488a /lisp/man.el
parent09907c3a85887a5d1ea230e317ee7b5c529946b8 (diff)
downloademacs-eaf1946c2175eccd54181a0242862ba0334c8ab5.tar.gz
(Man-build-man-command): Redirect desc 2 to /dev/null.
(Man-getpage-in-background): Require env before printing message.
Diffstat (limited to 'lisp/man.el')
-rw-r--r--lisp/man.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el
index 66dbbf766a5..9ed474f77b6 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -271,7 +271,7 @@ This regular expression should start with a `^' character.")
(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 @@ start a background process even if a buffer already exists and
(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)))