Mercurial > emacs
diff lisp/avoid.el @ 89958:0bdb5a16ae51
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-27
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-471
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-478
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Tue, 03 Aug 2004 00:03:00 +0000 |
parents | 68c22ea6027c 0731f4f165af |
children | d8411455de48 |
line wrap: on
line diff
--- a/lisp/avoid.el Wed Jul 28 07:05:52 2004 +0000 +++ b/lisp/avoid.el Tue Aug 03 00:03:00 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)