1 |
;;; mouse-sel.el --- multi-click selection support for Emacs 19 |
;;; mouse-sel.el --- multi-click selection support for Emacs 19 |
2 |
|
|
3 |
;; Copyright (C) 1993,1994,1995,2001,2002 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 1994, 1995, 2001, 2002, 2004 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Mike Williams <mdub@bigfoot.com> |
;; Author: Mike Williams <mdub@bigfoot.com> |
7 |
;; Keywords: mouse |
;; Keywords: mouse |
244 |
:group 'mouse-sel |
:group 'mouse-sel |
245 |
(if mouse-sel-mode |
(if mouse-sel-mode |
246 |
(progn |
(progn |
247 |
(add-hook 'x-lost-selection-hooks 'mouse-sel-lost-selection-hook) |
(add-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook) |
248 |
(when mouse-sel-default-bindings |
(when mouse-sel-default-bindings |
249 |
;; Save original bindings and replace them with new ones. |
;; Save original bindings and replace them with new ones. |
250 |
(setq mouse-sel-original-bindings |
(setq mouse-sel-original-bindings |
264 |
interprogram-paste-function nil)))) |
interprogram-paste-function nil)))) |
265 |
|
|
266 |
;; Restore original bindings |
;; Restore original bindings |
267 |
(remove-hook 'x-lost-selection-hooks 'mouse-sel-lost-selection-hook) |
(remove-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook) |
268 |
(dolist (binding mouse-sel-original-bindings) |
(dolist (binding mouse-sel-original-bindings) |
269 |
(global-set-key (car binding) (cdr binding))) |
(global-set-key (car binding) (cdr binding))) |
270 |
;; Restore the old values of these variables, |
;; Restore the old values of these variables, |
713 |
|
|
714 |
(provide 'mouse-sel) |
(provide 'mouse-sel) |
715 |
|
|
716 |
;;; arch-tag: 86e6c73f-deaa-48d3-a24e-c565fda1f7d7 |
;; arch-tag: 86e6c73f-deaa-48d3-a24e-c565fda1f7d7 |
717 |
;;; mouse-sel.el ends here |
;;; mouse-sel.el ends here |