Commit 46d91fa0 authored by Chong Yidong's avatar Chong Yidong

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

	discard the up event.
parent 19bf3d3f
2006-03-07 Chong Yidong <cyd@stupidchicken.com>
* help.el (describe-key-briefly): If KEY is a down event, read and
discard the up event.
2006-03-07 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gud.el (gud-speedbar-buttons): Allow pointers to
......
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment