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

[Sam Steingold]

Index: emacs/lisp/mouse.el
diff -c emacs/lisp/mouse.el:1.253 emacs/lisp/mouse.el:1.254
*** emacs/lisp/mouse.el:1.253   Thu Oct 28 23:33:23 2004
--- emacs/lisp/mouse.el Fri Oct 29 14:31:34 2004
***************
*** 1029,1041 ****
        (echo-keystrokes 0)
        event events key ignore
        (x-lost-selection-functions
!        (if (boundp 'x-lost-selection-functions)
!            (copy-sequence x-lost-selection-functions))))
!     (add-hook 'x-lost-selection-hook
              (lambda (seltype)
!               (if (eq seltype 'PRIMARY)
!                   (progn (setq ignore t)
!                          (throw 'mouse-show-mark t)))))
      (if transient-mark-mode
        (delete-overlay mouse-drag-overlay)
        (move-overlay mouse-drag-overlay (point) (mark t)))
--- 1029,1041 ----
        (echo-keystrokes 0)
        event events key ignore
        (x-lost-selection-functions
!        (when (boundp 'x-lost-selection-functions)
!            (copy-sequence x-lost-selection-functions))))
!     (add-hook 'x-lost-selection-functions
              (lambda (seltype)
!               (when (eq seltype 'PRIMARY)
!                   (setq ignore t)
!                   (throw 'mouse-show-mark t))))
      (if transient-mark-mode
        (delete-overlay mouse-drag-overlay)
        (move-overlay mouse-drag-overlay (point) (mark t)))
***************
*** 1065,1072 ****
                                          nil keys)
                      (setq events nil)))))))
      ;; If we lost the selection, just turn off the highlighting.
!     (if ignore
!       nil
        ;; For certain special keys, delete the region.
        (if (member key mouse-region-delete-keys)
          (delete-region (overlay-start mouse-drag-overlay)
--- 1065,1071 ----
                                          nil keys)
                      (setq events nil)))))))
      ;; If we lost the selection, just turn off the highlighting.
!     (unless ignore
        ;; For certain special keys, delete the region.
        (if (member key mouse-region-delete-keys)
          (delete-region (overlay-start mouse-drag-overlay)