Mercurial > emacs
changeset 2955:f34f9e634b81
(describe-key, describe-key-briefly):
Discard the click or drag that follows a down event.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 22 May 1993 18:23:31 +0000 |
| parents | 0dfd1927264e |
| children | d25ffad42426 |
| files | lisp/help.el |
| diffstat | 1 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Sat May 22 17:57:17 1993 +0000 +++ b/lisp/help.el Sat May 22 18:23:31 1993 +0000 @@ -101,6 +101,14 @@ (defun describe-key-briefly (key) "Print the name of the function KEY invokes. KEY is a string." (interactive "kDescribe key briefly: ") + ;; If this key seq ends with a down event, discard the + ;; following click or drag event. Otherwise that would + ;; erase the message. + (let ((type (aref key (1- (length key))))) + (if (listp type) (setq type (car type))) + (and (symbolp type) + (memq 'down (event-modifiers type)) + (setq foo (read-event)))) (let ((defn (key-binding key))) (if (or (null defn) (integerp defn)) (message "%s is undefined" (key-description key)) @@ -127,6 +135,14 @@ (defun describe-key (key) "Display documentation of the function invoked by KEY. KEY is a string." (interactive "kDescribe key: ") + ;; If this key seq ends with a down event, discard the + ;; following click or drag event. Otherwise that would + ;; erase the message. + (let ((type (aref key (1- (length key))))) + (if (listp type) (setq type (car type))) + (and (symbolp type) + (memq 'down (event-modifiers type)) + (read-event))) (let ((defn (key-binding key))) (if (or (null defn) (integerp defn)) (message "%s is undefined" (key-description key))