Re: mouse-avoidance-fancy-hook patch
John Paul Wallington <jpw(a)shootybangbang.com> wrote:
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.
Lies ?
Try this too:
--- avoid.el~ Sun Jun 30 01:02:27 2002
+++ avoid.el Tue Jul 2 06:54:25 2002
＠＠ -328,7 +328,7 ＠＠
(mouse-avoidance-too-close-p (mouse-position)))
(let ((old-pos (mouse-position)))
(mouse-avoidance-nudge-mouse)
- (if (not (eq (selected-frame) (car old-pos)))
+ (if (not (eq (selected-window) (car old-pos)))
;; This should never happen.
(apply 'set-mouse-position old-pos)))))
--
John Paul Wallington