[elpa] externals/coterm 29ef3ad 07/80: Fix scrolling

[ELPA Syncer]

branch: externals/coterm
commit 29ef3adf0040c5a0a2e1f447a8f3816713a31910
Author: m <>
Commit: m <>

    Fix scrolling
---
 coterm.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/coterm.el b/coterm.el
index d27d8f9..96d045b 100644
--- a/coterm.el
+++ b/coterm.el
@@ -106,22 +106,23 @@ In sync with variables `coterm--t-home-marker',
         (row coterm--t-row)
         (home coterm--t-home-marker))
     (cond
-     ((> row height)
+     ((>= row height)
       (save-excursion
         (goto-char home)
         (let ((left-to-move (forward-line (+ coterm--t-home-offset
-                                             (- row height 1)))))
+                                             (- row height -1)))))
           (unless (bolp)
             (cl-incf left-to-move)
             (forward-line 0))
           (set-marker home (point))
-          (cl-incf coterm--t-home-offset left-to-move)
-          (setq coterm--t-row height))))
+          (setq coterm--t-home-offset left-to-move)
+          (setq coterm--t-row (1- height)))))
      ((< row 0)
       (save-excursion
         (goto-char home)
         (forward-line row)
         (set-marker home (point))
+        (cl-incf coterm--t-home-offset 0)
         (setq coterm--t-row 0))))))
 
 (defun coterm-t-down (n)