Mercurial > emacs
changeset 56586:0731f4f165af
(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.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 02 Aug 2004 15:19:24 +0000 |
| parents | f2ea7576ac6e |
| children | c3fcca92bfd9 |
| files | lisp/avoid.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)