From e7867aa4d057d4ddda90daf6d9309288d8a98b01 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Thu, 31 Jul 2025 22:14:13 +0200 Subject: [PATCH] Fix weird error with page down --- editor/editor.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/editor/editor.lisp b/editor/editor.lisp index 27fb7e5..3a47eb8 100644 --- a/editor/editor.lisp +++ b/editor/editor.lisp @@ -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