Mercurial > emacs

comparison lisp/mouse-sel.el @ 74530:b1d0c631bbe2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-sel-mode): Register mouse-2 as a click type.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 09 Dec 2006 17:41:14 +0000
parents a5ea274e14ac
children e3694f1cb928 6588c6259dfb
comparison
equal deleted inserted replaced
74529:0d7ab079b8a6 74530:b1d0c631bbe2
242 primary selection and region." 242 primary selection and region."
243 :global t 243 :global t
244 :group 'mouse-sel 244 :group 'mouse-sel
245 (if mouse-sel-mode 245 (if mouse-sel-mode
246 (progn 246 (progn
247 ;; If mouse-2 has never been done by the user, initialize the
248 ;; `event-kind' property to ensure that `follow-link' clicks
249 ;; are interpreted correctly.
250 (put 'mouse-2 'event-kind 'mouse-click)
247 (add-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook) 251 (add-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook)
248 (when mouse-sel-default-bindings 252 (when mouse-sel-default-bindings
249 ;; Save original bindings and replace them with new ones. 253 ;; Save original bindings and replace them with new ones.
250 (setq mouse-sel-original-bindings 254 (setq mouse-sel-original-bindings
251 (mapcar (lambda (binding) 255 (mapcar (lambda (binding)