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

This commit is contained in:
Chong Yidong 2006-12-09 17:41:14 +00:00
parent c417f2a3c7
commit 92280c3284

View file

@ -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.