From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 1 Apr 2007 17:45:20 +0000 (+0000)
Subject: (mouse-set-secondary): Update mouse-secondary-overlay.
X-Git-Tag: emacs-pretest-22.0.97~51
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e4f866be36315a0f498c61b32ee2d299a7e0567;p=emacs.git

(mouse-set-secondary): Update mouse-secondary-overlay.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 8e9d931c15c..94d19d99a21 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1521,7 +1521,11 @@ This must be bound to a mouse drag event."
     (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.