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)
