/[emacs]/emacs/lisp/follow.el
ViewVC logotype

Diff of /emacs/lisp/follow.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by pj, Mon Jan 14 14:42:37 2002 UTC revision 1.16 by pj, Mon Jan 21 16:09:55 2002 UTC
# Line 2071  report this using the `follow-submit-fee Line 2071  report this using the `follow-submit-fee
2071                         (new-window-start (window-start win))                         (new-window-start (window-start win))
2072                         (new-window-point (window-point win)))                         (new-window-point (window-point win)))
2073                    (cond                    (cond
2074                     ;; The window was moved. Move it back and                     ;; The start of the selected window was repositioned.
2075                     ;; select a new.  If no better could be found,                     ;; Try to use the original start position and continue
2076                     ;; we stick with the new start position.  This                     ;; working with a window to the "right" in the window
2077                     ;; is used when the original process filter                     ;; chain.  This will create the effect that the output
2078                     ;; tries to position the cursor at the bottom                     ;; starts in one window and continues into the next.
2079                     ;; of the window.  Example: `lyskom'.  
2080                       ;; If the display has changed so much that it is not
2081                       ;; possible to keep the original window fixed and still
2082                       ;; display the point then we give up and use the new
2083                       ;; window start.
2084    
2085                       ;; This case is typically used when the process filter
2086                       ;; tries to reposition the start of the window in order
2087                       ;; to view the tail of the output.
2088                     ((not (eq orig-window-start new-window-start))                     ((not (eq orig-window-start new-window-start))
2089                      (follow-debug-message "filter: Moved")                      (follow-debug-message "filter: Moved")
2090                      (set-window-start win orig-window-start)                      (set-window-start win orig-window-start)

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26