Fix weird error with page down

This commit is contained in:
John Lorentzson 2025-07-31 22:14:13 +02:00
parent 0e3ebe487c
commit e7867aa4d0

View file

@ -863,8 +863,9 @@ Additionally ensures correct line numbers on the way, as a bonus."
(cond ((or (null (bottom-line view))
(eql line (bottom-line view)))
(feep))
((< (view-line-number view (bottom-line view))
(height view))
((and (line-in-view (bottom-line view) view)
(< (view-line-number view (bottom-line view))
(height view)))
(setf line (bottom-line view))
(update-buffer-cursor buffer))
(t