diff options
| author | Chong Yidong | 2007-04-01 17:45:20 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-04-01 17:45:20 +0000 |
| commit | 3e4f866be36315a0f498c61b32ee2d299a7e0567 (patch) | |
| tree | 3b1148121c963226b0a61086e8f7914ad3fcbfb4 | |
| parent | b831b4b8b82963fa0170efe9209fe253cb6b6b17 (diff) | |
| download | emacs-3e4f866be36315a0f498c61b32ee2d299a7e0567.tar.gz emacs-3e4f866be36315a0f498c61b32ee2d299a7e0567.zip | |
(mouse-set-secondary): Update mouse-secondary-overlay.
| -rw-r--r-- | lisp/mouse.el | 6 |
1 files changed, 5 insertions, 1 deletions
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." | |||
| 1521 | (with-current-buffer (window-buffer (posn-window posn)) | 1521 | (with-current-buffer (window-buffer (posn-window posn)) |
| 1522 | (if (numberp (posn-point posn)) | 1522 | (if (numberp (posn-point posn)) |
| 1523 | (setq beg (posn-point posn))) | 1523 | (setq beg (posn-point posn))) |
| 1524 | (move-overlay mouse-secondary-overlay beg (posn-point end))))) | 1524 | (move-overlay mouse-secondary-overlay beg (posn-point end)) |
| 1525 | (x-set-selection | ||
| 1526 | 'SECONDARY | ||
| 1527 | (buffer-substring (overlay-start mouse-secondary-overlay) | ||
| 1528 | (overlay-end mouse-secondary-overlay)))))) | ||
| 1525 | 1529 | ||
| 1526 | (defun mouse-drag-secondary (start-event) | 1530 | (defun mouse-drag-secondary (start-event) |
| 1527 | "Set the secondary selection to the text that the mouse is dragged over. | 1531 | "Set the secondary selection to the text that the mouse is dragged over. |