Mercurial > emacs
comparison lisp/mouse-sel.el @ 90729:6588c6259dfb
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 545-562)
- Update from CVS
- Update from erc--emacs--22
- Merge from gnus--rel--5.10
- erc-iswitchb: Temporarily enable iswitchb mode
* gnus--rel--5.10 (patch 172-176)
- Merge from emacs--devo--0
- Update from CVS
- Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 16 Dec 2006 01:29:26 +0000 |
| parents | 8dd8c8286063 b1d0c631bbe2 |
| children | 95d0cdf160ea |
comparison
equal
deleted
inserted
replaced
| 90728:a65a92d83186 | 90729:6588c6259dfb |
|---|---|
| 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) |