# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1175449520 0
# Node ID e3994020ab84402d5d0c44d5ecb268648f6d3e0c
# Parent  5ca7b06d3fd623c87089461bfa5f8241472775cb
(mouse-set-secondary): Update mouse-secondary-overlay.

diff -r 5ca7b06d3fd6 -r e3994020ab84 lisp/mouse.el
--- a/lisp/mouse.el	Sun Apr 01 17:45:00 2007 +0000
+++ b/lisp/mouse.el	Sun Apr 01 17:45:20 2007 +0000
@@ -1521,7 +1521,11 @@
     (with-current-buffer (window-buffer (posn-window posn))
       (if (numberp (posn-point posn))
 	  (setq beg (posn-point posn)))
-      (move-overlay mouse-secondary-overlay beg (posn-point end)))))
+      (move-overlay mouse-secondary-overlay beg (posn-point end))
+      (x-set-selection
+       'SECONDARY
+       (buffer-substring (overlay-start mouse-secondary-overlay)
+			 (overlay-end mouse-secondary-overlay))))))
 
 (defun mouse-drag-secondary (start-event)
   "Set the secondary selection to the text that the mouse is dragged over.