# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1165686074 0
# Node ID b1d0c631bbe2484a867dab786ede23cb4d81cca0
# Parent  0d7ab079b8a63f3560eecfd7ea626e676e6d398d
(mouse-sel-mode): Register mouse-2 as a click type.

diff -r 0d7ab079b8a6 -r b1d0c631bbe2 lisp/mouse-sel.el
--- a/lisp/mouse-sel.el	Sat Dec 09 16:16:24 2006 +0000
+++ b/lisp/mouse-sel.el	Sat Dec 09 17:41:14 2006 +0000
@@ -244,6 +244,10 @@
   :group 'mouse-sel
   (if mouse-sel-mode
       (progn
+	;; If mouse-2 has never been done by the user, initialize the
+	;; `event-kind' property to ensure that `follow-link' clicks
+	;; are interpreted correctly.
+	(put 'mouse-2 'event-kind 'mouse-click)
 	(add-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook)
 	(when mouse-sel-default-bindings
 	  ;; Save original bindings and replace them with new ones.