# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1091459964 0
# Node ID 0731f4f165af8344153b46e2132839577986ca07
# Parent  f2ea7576ac6ec7bf84216154e62fdfcafa219ad5
(mouse-avoidance-point-position): Use window-inside-edges
and call compute-motion with nil for topos and width to get proper
usable width and height for both window and non-window systems.

diff -r f2ea7576ac6e -r 0731f4f165af lisp/avoid.el
--- a/lisp/avoid.el	Mon Aug 02 15:06:25 2004 +0000
+++ b/lisp/avoid.el	Mon Aug 02 15:19:24 2004 +0000
@@ -139,15 +139,15 @@
   "Return the position of point as (FRAME X . Y).
 Analogous to mouse-position."
   (let* ((w (selected-window))
-	 (edges (window-edges w))
+	 (edges (window-inside-edges w))
 	 (list
 	  (compute-motion (max (window-start w) (point-min))   ; start pos
 			  ;; window-start can be < point-min if the
 			  ;; latter has changed since the last redisplay
 			  '(0 . 0)	                       ; start XY
 			  (point)	                       ; stop pos
-			  (cons (window-width) (window-height)); stop XY: none
-			  (1- (window-width))                  ; width
+			  nil				       ; stop XY: none
+			  nil				       ; width
 			  (cons (window-hscroll w) 0)          ; 0 may not be right?
 			  (selected-window))))
     ;; compute-motion returns (pos HPOS VPOS prevhpos contin)