diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-12-09 17:41:14 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-12-09 17:41:14 +0000 |
| commit | 92280c32848aeb7d7a147f6dc92a93b78f6517bd (patch) | |
| tree | 5a8838cabf1e4e69f4a2dd2e800887c0a547285f /lisp/mouse-sel.el | |
| parent | c417f2a3c71d046957e9b53e668f39a4de60cb2c (diff) | |
| download | emacs-92280c32848aeb7d7a147f6dc92a93b78f6517bd.tar.gz | |
(mouse-sel-mode): Register mouse-2 as a click type.
Diffstat (limited to 'lisp/mouse-sel.el')
| -rw-r--r-- | lisp/mouse-sel.el | 4 |
1 files changed, 4 insertions, 0 deletions
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. |