Re: mouse-avoidance-fancy-hook patch
Steve Youngs <youngs(a)xemacs.org> wrote:
As yet, nobody has offered to look into the real problem. I'll
put it
on my todo list, but at this stage I don't know when I'll be able to
get to it.
FWIW, the problem is with `mouse-position'. It should return a list
(WINDOW X . Y) giving the current mouse window and position, and
return (nil nil) when the cursor is not over a character, or not over
a window. But it appears to return (nil nil) nearly all the time.
I'm not sure whether `mouse-avoidance-nudge-mouse' switching frames
will "never happen", but I would be inclined to just let it happen.
Also, maybe when detecting mice events it is sufficient to just use
`mouse-event-p' ?
Rueben, does this work ?
(defun mouse-avoidance-fancy-hook ()
;; Used for the "fancy" modes, ie jump et al.
(if (and (not executing-kbd-macro) ; don't check inside macro
;; Don't do anything if last event was a mouse event.
(not (mouse-event-p last-input-event))
(mouse-avoidance-too-close-p (mouse-position)))
(mouse-avoidance-nudge-mouse)))
--
John Paul Wallington