From 5f296b78d2c4e666a69414095301243837e50c75 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 22 May 1993 18:23:31 +0000 Subject: (describe-key, describe-key-briefly): Discard the click or drag that follows a down event. --- lisp/help.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/lisp/help.el b/lisp/help.el index b832ffb6c75..1d3c16754f5 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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 @@ If FUNCTION is nil, applies `message' to it, thus printing it." (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)) -- cgit v1.2.1