* help.el (describe-key-briefly): If KEY is a down event, read and

	discard the up event.

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/help.el b/lisp/help.el
index 7c84f44f6a..a39d344dc0 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -577,6 +577,12 @@ temporarily enables it to allow getting help on disabled items and buttons."
 	     (setq saved-yank-menu (copy-sequence yank-menu))
 	     (menu-bar-update-yank-menu "(any string)" nil))
 	   (setq key (read-key-sequence "Describe key (or click or menu item): "))
+	   ;; If KEY is a down-event, read and discard the
+	   ;; corresponding up-event.
+	   (if (and (vectorp key)
+		    (eventp (elt key 0))
+		    (memq 'down (event-modifiers (elt key 0))))
+	       (read-event))
 	   (list
 	    key
 	    (if current-prefix-arg (prefix-numeric-value current-prefix-arg))