Re: select and META key

[Richard Stallman]

Would someone please check this for correctness?
If it is correct, please install it.
Then please report and ack.

(From herberteuler.)

*** 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.