From dfa7e025578c1284d2ace7dffa8153c1fd0c9051 Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Sat, 17 Dec 2022 16:12:17 +0600 Subject: [PATCH] Fix typo in 'eat--t-scroll-up' * eat.el (eat--t-scroll-up): Replace 'scroll-begin' with 'scroll-end' in '(< scroll-end (eat--t-disp-width disp))', since this will always evaluate to t, and thus it was most probably a typo. --- eat.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/eat.el b/eat.el index 6a23ee7..f8601db 100644 --- a/eat.el +++ b/eat.el @@ -1100,7 +1100,8 @@ accordingly." (insert ?\n)) (set-marker (eat--t-disp-begin disp) (point))) ;; Is the last line on display in scroll region? - (when (< scroll-begin (eat--t-disp-width disp)) + (when (< scroll-end (eat--t-disp-width disp)) + ;; No, it isn't. ;; Go to the end of scroll region (before deleting or moving ;; texts). (eat--t-goto-bol (- (1+ (- scroll-end scroll-begin)) n))