Re: OT: XEmacs mouse selection?

["Robin S. Socha" <robin@socha.net>]

* Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
> It's driving me nuts that XEmacs doesn't copy the top of the kill
> ring to the X selection (and vice versa).  I think I remember someone
> sending me something that made XEmacs behave like Emacs here, but I
> seem to have, er, misplaced it.  Some kind soul...?

Like this?

;:* Put the mouse selection in the kill buffer
;: Jan Vroonhof <vroonhof @ frege.math.ethz.ch>
(defun mouse-track-drag-copy-to-kill (event count)
  "Copy the dragged region to the kill ring"
  (let ((region (default-mouse-track-return-dragged-selection event)))
    (when region
      (copy-region-as-kill (car region)
                           (cdr region)))
    nil))
(add-hook 'mouse-track-drag-up-hook 'mouse-track-drag-copy-to-kill)
-- 
Robin S. Socha  <http://socha.net/XEmacs/misc.html>