mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(mouse-avoidance-point-position): Use window-inside-edges

Browse Source 
and call compute-motion with nil for topos and width to get proper
usable width and height for both window and non-window systems.
This commit is contained in:
Kim F. Storm 2004-08-02 15:19:24 +00:00
parent ec2b66c4c2
commit 5970bd01f0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/avoid.el
View File

@ -139,15 +139,15 @@ Only applies in mouse-avoidance-modes `animate' and `jump'."
"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)