Mercurial > emacs
diff lisp/mouse.el @ 76876:e3994020ab84
(mouse-set-secondary): Update mouse-secondary-overlay.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 01 Apr 2007 17:45:20 +0000 |
parents | 87812a667b64 |
children | b24147eb76bb 4ef881a120fe |
line wrap: on
line diff
--- 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.