# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1003854256 0
# Node ID ac7e8ad8b1d66c4baea15386aea5398553055e49
# Parent  0e50d546f7cdcf27a2d26e4f06a2fa993542c209
(Info-fontify-node): Bind doun-mouse-{1,2} instead
of mouse-{1,2} since dragging is on the down event.

diff -r 0e50d546f7cd -r ac7e8ad8b1d6 lisp/info.el
--- a/lisp/info.el	Tue Oct 23 16:16:06 2001 +0000
+++ b/lisp/info.el	Tue Oct 23 16:24:16 2001 +0000
@@ -2583,8 +2583,8 @@
 					     ("Up" . Info-up))))))
 		  (when fun
 		    (let ((keymap (make-sparse-keymap)))
-		      (define-key keymap [header-line mouse-1] fun)
-		      (define-key keymap [header-line mouse-2] fun)
+		      (define-key keymap [header-line down-mouse-1] fun)
+		      (define-key keymap [header-line down-mouse-2] fun)
 		      (put-text-property tbeg nend 'local-map keymap))))
 		))))
 	(goto-char (point-min))