# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 897717586 0
# Node ID eec1f722bded87235b6b750572ecff0bb14c839a
# Parent  516ef6b2ceb9fc8537c0b40bc35560be256d2162
(help-map): C-h 4 i runs info-other-window.

(describe-key, describe-key-briefly):
Don't discard up event after down event.

diff -r 516ef6b2ceb9 -r eec1f722bded lisp/help.el
--- a/lisp/help.el	Sat Jun 13 05:27:47 1998 +0000
+++ b/lisp/help.el	Sat Jun 13 05:59:46 1998 +0000
@@ -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 @@
   "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 @@
 (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)