[Emacs-diffs] Changes to emacs/lisp/help.el

[Chong Yidong]

Index: emacs/lisp/help.el
diff -u emacs/lisp/help.el:1.305 emacs/lisp/help.el:1.306
--- emacs/lisp/help.el:1.305    Tue Mar  7 09:53:30 2006
+++ emacs/lisp/help.el  Tue Mar  7 15:53:41 2006
@@ -577,6 +577,12 @@
             (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))