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

[Stefan Monnier]

Index: emacs/lisp/mouse.el
diff -c emacs/lisp/mouse.el:1.252 emacs/lisp/mouse.el:1.253
*** emacs/lisp/mouse.el:1.252   Wed Oct 27 17:44:59 2004
--- emacs/lisp/mouse.el Thu Oct 28 23:33:23 2004
***************
*** 1028,1035 ****
    (let ((inhibit-quit t)
        (echo-keystrokes 0)
        event events key ignore
!       (x-lost-selection-hooks (copy-sequence x-lost-selection-hooks)))
!     (add-hook 'x-lost-selection-hooks
              (lambda (seltype)
                (if (eq seltype 'PRIMARY)
                    (progn (setq ignore t)
--- 1028,1037 ----
    (let ((inhibit-quit t)
        (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)