[Emacs-diffs] Changes to emacs/lisp/avoid.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/avoid.el
diff -c emacs/lisp/avoid.el:1.34.14.1 emacs/lisp/avoid.el:1.34.14.2
*** emacs/lisp/avoid.el:1.34.14.1       Fri Apr 16 12:49:48 2004
--- emacs/lisp/avoid.el Tue Aug  3 00:02:59 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)