From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 21 Feb 2006 19:51:37 +0000 (+0000)
Subject: (describe-key-briefly): Compute interactive args
X-Git-Tag: emacs-pretest-22.0.90~3966
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=774a814f60738f2ca6ae40a7209080df2794b379;p=emacs.git

(describe-key-briefly): Compute interactive args
in same was as before previous change.
---

diff --git a/lisp/help.el b/lisp/help.el
index 02045948ecb..f74293b8dd6 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -579,12 +579,8 @@ temporarily enables it to allow getting help on disabled items and buttons."
 	   (setq key (read-key-sequence "Describe key (or click or menu item): "))
 	   (list
 	    key
-	    (prefix-numeric-value current-prefix-arg)
-	    ;; If KEY is a down-event, read the corresponding up-event
-	    ;; and use it as the third argument.
-	    (if (and (consp key) (symbolp (car key))
-		     (memq 'down (cdr (get (car key) 'event-symbol-elements))))
-		(read-event))))
+	    (if current-prefix-arg (prefix-numeric-value current-prefix-arg))
+	    1))
        ;; Put yank-menu back as it was, if we changed it.
        (when saved-yank-menu
 	 (setq yank-menu (copy-sequence saved-yank-menu))