How to mimic some GNU Emacs mouse behavior in XEmacs?
rpluim at gmail.com
Thu Oct 18 03:11:02 EDT 2007
On 10/17/07, skip at pobox.com <skip at pobox.com> wrote:
> > (define-key global-map 'button3 'mouse-track-adjust)
> > (add-hook 'mouse-track-click-hook
> > (lambda (event count)
> > (if (or (/= (event-button event) 3)
> > (/= count 2))
> > nil
> > (kill-region (point) (mark))
> > t
> > )))
> > (setq mouse-yank-at-point t)
> > I am not able to get it to select the region spanning the last point
> > button1 was clicked, to the current mouse location. To do that I have
> > highlight the region by dragging the mouse. Presumably, I have to
> > some 'mark the point' function in the code above when button1 is clicked
> > in the above conditional?
Does it work to use (event-point event) instead of (mark)?
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the XEmacs-Beta