Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix typo in 'eat--t-scroll-up'

Browse source 
* 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.
This commit is contained in:
Akib Azmain Turja 2022-12-17 16:12:17 +06:00
parent ab0ac1ff76
commit dfa7e02557
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
eat.el
View file

@ -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))