From 0e3e8ecc00b7641402eccaa940cd1a35d042f8b9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 13 Jun 1998 05:59:46 +0000 Subject: (help-map): C-h 4 i runs info-other-window. (describe-key, describe-key-briefly): Don't discard up event after down event. --- lisp/help.el | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index b4d2cf5f4a6..afe7f49e220 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -66,6 +66,7 @@ (define-key help-map "F" 'view-emacs-FAQ) (define-key help-map "i" 'info) +(define-key help-map "4i" 'info-other-window) (define-key help-map "\C-f" 'Info-goto-emacs-command-node) (define-key help-map "\C-k" 'Info-goto-emacs-key-command-node) (define-key help-map "\C-i" 'info-lookup-symbol) @@ -214,14 +215,6 @@ With arg, you are asked to choose which language." "Print the name of the function KEY invokes. KEY is a string. If INSERT (the prefix arg) is non-nil, insert the message in the buffer." (interactive "kDescribe key briefly: \nP") - ;; 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))) (save-excursion (let ((modifiers (event-modifiers (aref key 0))) (standard-output (if insert (current-buffer) t)) @@ -305,14 +298,6 @@ 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))) (save-excursion (let ((modifiers (event-modifiers (aref key 0))) window position) -- cgit v1.2.1