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) |