/[emacs]/emacs/lisp/mouse-sel.el
ViewVC logotype

Diff of /emacs/lisp/mouse-sel.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42 by kai, Mon Oct 25 08:29:12 2004 UTC revision 1.43 by monnier, Thu Oct 28 23:34:51 2004 UTC
# Line 1  Line 1 
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
# Line 243  primary selection and region." Line 244  primary selection and region."
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
# Line 263  primary selection and region." Line 264  primary selection and region."
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,
# Line 712  If `mouse-yank-at-point' is non-nil, ins Line 713  If `mouse-yank-at-point' is non-nil, ins
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

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26