* lisp/help.el (describe-key-briefly): Copy previous standard-output change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c041ef45639a7fd7fe0aa492336e28a1cba6f5b5..5cb76a1394a5784b80927cbc1ee8009ad6e1193b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-09-13  Glenn Morris  <rgm@gnu.org>
+
+       * help.el (describe-key-briefly): Copy previous standard-output change.
+
 2011-09-13  PJ Weisberg  <pj@irregularexpressions.net>  (tiny change)
 
        * help.el (where-is): Respect non-standard standard-output.  (Bug#9030)

diff --git a/lisp/help.el b/lisp/help.el
index 0c5ebea1b04ad01781a3f3e1e2c6e8e02fada875..ca8f76515cf3f47a96266c49e7f5f5ee3dd0dedb 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -625,7 +625,7 @@ temporarily enables it to allow getting help on disabled items and buttons."
                    (aref key 1)
                  (aref key 0)))
         (modifiers (event-modifiers event))
-        (standard-output (if insert (current-buffer) t))
+        (standard-output (if insert (current-buffer) standard-output))
         (mouse-msg (if (or (memq 'click modifiers) (memq 'down modifiers)
                            (memq 'drag modifiers)) " at that spot" ""))
         (defn (key-binding key t))