On 10/17/07, skip@pobox.com <skip@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
> 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?
>
>

Does it work to use (event-point event) instead of (mark)?

Robert

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@xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta