From 82a34fe4b818573bae95246fc1db47456bf1545d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 27 May 2020 11:50:04 -0700 Subject: [PATCH] ui.gadgets.editors: fix off-by-one. --- basis/ui/gadgets/editors/editors.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor index f7db62e93b..5248bf291a 100644 --- a/basis/ui/gadgets/editors/editors.factor +++ b/basis/ui/gadgets/editors/editors.factor @@ -577,7 +577,7 @@ TUPLE: multiline-editor < editor ; dup editor-caret first page-elt ; : next-page-elt ( editor -- editor element ) - dup [ control-value length ] [ editor-caret first ] bi - page-elt ; + dup [ control-value length 1 - ] [ editor-caret first ] bi - page-elt ; PRIVATE>