[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/avoid.el
From: |
Kim F . Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/avoid.el |
Date: |
Mon, 02 Aug 2004 11:25:45 -0400 |
Index: emacs/lisp/avoid.el
diff -c emacs/lisp/avoid.el:1.35 emacs/lisp/avoid.el:1.36
*** emacs/lisp/avoid.el:1.35 Mon Sep 1 15:45:08 2003
--- emacs/lisp/avoid.el Mon Aug 2 15:19:24 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)
- [Emacs-diffs] Changes to emacs/lisp/avoid.el,
Kim F . Storm <=