Re: select and META key

[Chong Yidong]

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.