diff options
| author | Pavel Janík | 2002-01-21 16:09:55 +0000 |
|---|---|---|
| committer | Pavel Janík | 2002-01-21 16:09:55 +0000 |
| commit | bb40a52472e1a5b439d630a2dddfc1190c5d8e82 (patch) | |
| tree | 084fe8f87dce0c12fcf7d570d336bcdf022ca5a9 | |
| parent | 17f8ff6af5b109696bec223904500149ab15e880 (diff) | |
| download | emacs-bb40a52472e1a5b439d630a2dddfc1190c5d8e82.tar.gz emacs-bb40a52472e1a5b439d630a2dddfc1190c5d8e82.zip | |
Comment fix.
| -rw-r--r-- | lisp/follow.el | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/lisp/follow.el b/lisp/follow.el index 3d4ef57085b..0e2d04068d4 100644 --- a/lisp/follow.el +++ b/lisp/follow.el | |||
| @@ -2071,12 +2071,20 @@ report this using the `follow-submit-feedback' function." | |||
| 2071 | (new-window-start (window-start win)) | 2071 | (new-window-start (window-start win)) |
| 2072 | (new-window-point (window-point win))) | 2072 | (new-window-point (window-point win))) |
| 2073 | (cond | 2073 | (cond |
| 2074 | ;; The window was moved. Move it back and | 2074 | ;; The start of the selected window was repositioned. |
| 2075 | ;; select a new. If no better could be found, | 2075 | ;; Try to use the original start position and continue |
| 2076 | ;; we stick with the new start position. This | 2076 | ;; working with a window to the "right" in the window |
| 2077 | ;; is used when the original process filter | 2077 | ;; chain. This will create the effect that the output |
| 2078 | ;; tries to position the cursor at the bottom | 2078 | ;; starts in one window and continues into the next. |
| 2079 | ;; of the window. Example: `lyskom'. | 2079 | |
| 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. | ||
| 2080 | ((not (eq orig-window-start new-window-start)) | 2088 | ((not (eq orig-window-start new-window-start)) |
| 2081 | (follow-debug-message "filter: Moved") | 2089 | (follow-debug-message "filter: Moved") |
| 2082 | (set-window-start win orig-window-start) | 2090 | (set-window-start win orig-window-start) |