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

[Miles Bader]

Index: emacs/lisp/mouse-sel.el
diff -c emacs/lisp/mouse-sel.el:1.31.4.3 emacs/lisp/mouse-sel.el:1.31.4.4
*** emacs/lisp/mouse-sel.el:1.31.4.3    Fri Mar 19 23:27:34 2004
--- emacs/lisp/mouse-sel.el     Fri Oct 29 02:05:09 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
***************
*** 240,248 ****
  & mouse-3, but operate on the X secondary selection rather than the
  primary selection and region."
    :global t
    (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
--- 241,250 ----
  & mouse-3, but operate on the X secondary selection rather than the
  primary selection and region."
    :global t
+   :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
***************
*** 262,268 ****
                  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,
***************
*** 711,715 ****
  
  (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