How to mimic some GNU Emacs mouse behavior in XEmacs?
A colleague at work is trying to mimic some GNU Emacs behavior in XEmacs. I
have never done anything with the mouse in either dialect, so I couldn't
help him out. Can someone here suggest how to do what he wants?
I am trying to imitate the following FSF emacs behavior in xemacs:
When I
double-click mouse button3, I would like it to kill the region selected
from the last position of 'point' position. Also button2 yanks the
selection. Here is what I have so far:
(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
where
button1 was clicked, to the current mouse location. To do that I have to
highlight the region by dragging the mouse. Presumably, I have to invoke
some 'mark the point' function in the code above when button1 is clicked
in the above conditional?
Thanks,
Skip
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta