From: PJ Weisberg <pj@irregularexpressions.net>
Date: Tue, 13 Sep 2011 07:18:13 +0000 (-0700)
Subject: * lisp/help.el (where-is): Respect non-standard standard-output.  (tiny change)
X-Git-Tag: emacs-pretest-24.0.90~104^2~67
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3ce671f377f6bb09576c90847724ea5a1e64fd5;p=emacs.git

* lisp/help.el (where-is): Respect non-standard standard-output.  (tiny change)

Fixes: debbugs:9030
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91368fe5304..c041ef45639 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-13  PJ Weisberg  <pj@irregularexpressions.net>  (tiny change)
+
+	* help.el (where-is): Respect non-standard standard-output.  (Bug#9030)
+
 2011-09-13  Glenn Morris  <rgm@gnu.org>
 
 	* emacs-lisp/lisp-mode.el (lisp-indent-function):
diff --git a/lisp/help.el b/lisp/help.el
index 3ed6f79275a..0c5ebea1b04 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -527,7 +527,7 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
   (unless definition (error "No command"))
   (let ((func (indirect-function definition))
         (defs nil)
-        (standard-output (if insert (current-buffer) t)))
+        (standard-output (if insert (current-buffer) standard-output)))
     ;; In DEFS, find all symbols that are aliases for DEFINITION.
     (mapatoms (lambda (symbol)
 		(and (fboundp symbol)