[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/avoid.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/avoid.el [lexbind] |
Date: |
Sat, 04 Sep 2004 05:44:24 -0400 |
Index: emacs/lisp/avoid.el
diff -c emacs/lisp/avoid.el:1.34.8.1 emacs/lisp/avoid.el:1.34.8.2
*** emacs/lisp/avoid.el:1.34.8.1 Tue Oct 14 23:50:48 2003
--- emacs/lisp/avoid.el Sat Sep 4 09:19:26 2004
***************
*** 139,153 ****
"Return the position of point as (FRAME X . Y).
Analogous to mouse-position."
(let* ((w (selected-window))
! (edges (window-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
(cons (window-hscroll w) 0) ; 0 may not be
right?
(selected-window))))
;; compute-motion returns (pos HPOS VPOS prevhpos contin)
--- 139,153 ----
"Return the position of point as (FRAME X . Y).
Analogous to mouse-position."
(let* ((w (selected-window))
! (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
! 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)