From bf66f01a5af786d716fe01cedd0249e52fe12d6d Mon Sep 17 00:00:00 2001 From: cxxxr Date: Sat, 2 Dec 2023 22:15:00 +0900 Subject: [PATCH] avoid infinite loop --- src/display/physical-line.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/display/physical-line.lisp b/src/display/physical-line.lisp index 00ecd0b2e..4e937f31f 100644 --- a/src/display/physical-line.lisp +++ b/src/display/physical-line.lisp @@ -198,9 +198,9 @@ :and physical-line-objects := '() :for object := (pop objects) :while object - :do (cond ((<= view-width (+ total-width (object-width object))) - (cond ((and (typep object 'text-object) - (< 1 (length (text-object-string object)))) + :do (cond ((and (typep object 'text-object) + (<= view-width (+ total-width (object-width object)))) + (cond ((< 1 (length (text-object-string object))) (setf objects (nconc (explode-object object) objects))) (t (push object objects)