From 92280c32848aeb7d7a147f6dc92a93b78f6517bd Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 9 Dec 2006 17:41:14 +0000 Subject: [PATCH] (mouse-sel-mode): Register mouse-2 as a click type. --- lisp/mouse-sel.el | 4 ++++ 1 file changed, 4 insertions(+) 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. -- 2.39.2