From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 9 Dec 2006 17:41:14 +0000 (+0000)
Subject: (mouse-sel-mode): Register mouse-2 as a click type.
X-Git-Tag: emacs-pretest-22.0.92~205
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92280c32848aeb7d7a147f6dc92a93b78f6517bd;p=emacs.git

(mouse-sel-mode): Register mouse-2 as a click type.
---

diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el
index a1209f827f1..5c3e79ed807 100644
--- a/lisp/mouse-sel.el
+++ b/lisp/mouse-sel.el
@@ -244,6 +244,10 @@ primary selection and region."
   :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.