Add fullscreen_hook.

[gnu-emacs] / lisp / term.el

diff --git a/lisp/term.el b/lisp/term.el
index 8dafcfc894bcccd26741a91f39428e59d1477317..4124e2a2969eb7d8b9762e6cbaa6e821e9ca0f7d 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -3768,6 +3768,9 @@ Should only be called when point is at the start of a screen line."
        (save-start-line-column term-start-line-column)
        (save-current-row (term-current-row)))
     ;; The number of inserted lines shouldn't exceed the scroll region end.
+    ;; The `term-scroll-end' line is part of the scrolling region, so
+    ;; we need to go one line past it in order to ensure correct
+    ;; scrolling.
     (when (> (+ save-current-row lines) (1+ term-scroll-end))
       (setq lines (- lines (- (+ save-current-row lines) (1+ term-scroll-end)))))
     (term-down lines)
@@ -3786,6 +3789,9 @@ Should only be called when point is at the start of a screen line."
        (save-start-line-column term-start-line-column)
        (save-current-row (term-current-row)))
     ;; Inserting lines should take into account the scroll region.
+    ;; The `term-scroll-end' line is part of the scrolling region, so
+    ;; we need to go one line past it in order to ensure correct
+    ;; scrolling.
     (if (< save-current-row term-scroll-start)
        ;; If point is before scroll start, 
        (progn