[Emacs-diffs] Changes to emacs/lisp/mouse-sel.el

[Stefan Monnier]

Index: emacs/lisp/mouse-sel.el
diff -c emacs/lisp/mouse-sel.el:1.42 emacs/lisp/mouse-sel.el:1.43
*** emacs/lisp/mouse-sel.el:1.42        Mon Oct 25 08:29:12 2004
--- emacs/lisp/mouse-sel.el     Thu Oct 28 23:34:51 2004
***************
*** 1,6 ****
  ;;; mouse-sel.el --- multi-click selection support for Emacs 19
  
! ;; Copyright (C) 1993,1994,1995,2001,2002 Free Software Foundation, Inc.
  
  ;; Author: Mike Williams <address@hidden>
  ;; Keywords: mouse
--- 1,7 ----
  ;;; mouse-sel.el --- multi-click selection support for Emacs 19
  
! ;; Copyright (C) 1993, 1994, 1995, 2001, 2002, 2004
! ;;           Free Software Foundation, Inc.
  
  ;; Author: Mike Williams <address@hidden>
  ;; Keywords: mouse
***************
*** 243,249 ****
    :group 'mouse-sel
    (if mouse-sel-mode
        (progn
!       (add-hook 'x-lost-selection-hooks 'mouse-sel-lost-selection-hook)
        (when mouse-sel-default-bindings
          ;; Save original bindings and replace them with new ones.
          (setq mouse-sel-original-bindings
--- 244,250 ----
    :group 'mouse-sel
    (if mouse-sel-mode
        (progn
!       (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.
          (setq mouse-sel-original-bindings
***************
*** 263,269 ****
                  interprogram-paste-function nil))))
  
      ;; Restore original bindings
!     (remove-hook 'x-lost-selection-hooks 'mouse-sel-lost-selection-hook)
      (dolist (binding mouse-sel-original-bindings)
        (global-set-key (car binding) (cdr binding)))
      ;; Restore the old values of these variables,
--- 264,270 ----
                  interprogram-paste-function nil))))
  
      ;; Restore original bindings
!     (remove-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook)
      (dolist (binding mouse-sel-original-bindings)
        (global-set-key (car binding) (cdr binding)))
      ;; Restore the old values of these variables,
***************
*** 712,716 ****
  
  (provide 'mouse-sel)
  
! ;;; arch-tag: 86e6c73f-deaa-48d3-a24e-c565fda1f7d7
  ;;; mouse-sel.el ends here
--- 713,717 ----
  
  (provide 'mouse-sel)
  
! ;; arch-tag: 86e6c73f-deaa-48d3-a24e-c565fda1f7d7
  ;;; mouse-sel.el ends here