[Emacs-diffs] Changes to emacs/lisp/follow.el

[Eli Zaretskii]

Index: emacs/lisp/follow.el
diff -c emacs/lisp/follow.el:1.15 emacs/lisp/follow.el:1.16
*** emacs/lisp/follow.el:1.15   Mon Jan 14 09:42:37 2002
--- emacs/lisp/follow.el        Mon Jan 21 11:09:55 2002
***************
*** 2071,2082 ****
                       (new-window-start (window-start win))
                       (new-window-point (window-point win)))
                  (cond
!                  ;; The window was moved. Move it back and
!                  ;; select a new.  If no better could be found,
!                  ;; we stick with the new start position.  This
!                  ;; is used when the original process filter
!                  ;; tries to position the cursor at the bottom
!                  ;; of the window.  Example: `lyskom'.
                   ((not (eq orig-window-start new-window-start))
                    (follow-debug-message "filter: Moved")
                    (set-window-start win orig-window-start)
--- 2071,2090 ----
                       (new-window-start (window-start win))
                       (new-window-point (window-point win)))
                  (cond
!                  ;; The start of the selected window was repositioned.
!                  ;; Try to use the original start position and continue
!                  ;; working with a window to the "right" in the window
!                  ;; chain.  This will create the effect that the output
!                  ;; starts in one window and continues into the next.
! 
!                  ;; If the display has changed so much that it is not
!                  ;; possible to keep the original window fixed and still
!                  ;; display the point then we give up and use the new
!                  ;; window start.
! 
!                  ;; This case is typically used when the process filter
!                  ;; tries to reposition the start of the window in order
!                  ;; to view the tail of the output.
                   ((not (eq orig-window-start new-window-start))
                    (follow-debug-message "filter: Moved")
                    (set-window-start win orig-window-start)