diff lisp/term.el @ 90519:138ce2701550

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 320-342) - Update from CVS - Merge from gnus--rel--5.10 - lisp/play/cookie1.el (cookie): Work properly when there's only one entry - Add note about "link" button-class to etc/TODO * gnus--rel--5.10 (patch 108-112) - Merge from emacs--devo--0 - Clean up merge mistakes - Update from CVS - Update from CVS: texi/gnus.texi (Summary Buffer Lines): Fix typo. Revision: [e-mail]/emacs--unicode--0--patch-86

--- a/lisp/term.el	Wed Jul 05 17:38:31 2006 +0000
+++ b/lisp/term.el	Thu Jul 06 08:59:39 2006 +0000
@@ -3766,6 +3766,9 @@
 	(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)
@@ -3784,6 +3787,9 @@
 	(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