[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: select and META key
From: |
Chong Yidong |
Subject: |
Re: select and META key |
Date: |
Sun, 01 Apr 2007 13:45:42 -0400 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.96 (gnu/linux) |
Richard Stallman <address@hidden> writes:
> Would someone please check this for correctness?
> If it is correct, please install it.
> Then please report and ack.
Looks correct to me. I've checked it in.
> *** mouse.el.~1.241.8.44.~ 2007-03-19 09:11:41.000000000 +0800
> --- mouse.el 2007-03-28 11:26:41.000000000 +0800
> ***************
> *** 1522,1528 ****
> (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)))))
>
> (defun mouse-drag-secondary (start-event)
> "Set the secondary selection to the text that the mouse is dragged over.
> --- 1522,1532 ----
> (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))
> ! (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.