Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv32120/Drei
Modified Files: drei-redisplay.lisp Log Message: Fix *really* obscure case where changes to the Drei buffer would not be picked up by redisplay.
--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/30 13:49:30 1.54 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp 2008/01/30 20:43:39 1.55 @@ -418,10 +418,10 @@ (invalidate-stroke stroke :modified t)) ;; Move to the next changed region, if it is not possible for ;; more stroks to overlap with the current one. - (when (and changed-region - (>= (stroke-end-offset stroke) - (cdr changed-region))) - (pop (changed-regions view))) + (loop while (and (first (changed-regions view)) + (>= (stroke-end-offset stroke) + (cdr (first (changed-regions view))))) + do (pop (changed-regions view))) (incf (line-stroke-count line)) (setf (line-end-offset line) (stroke-end-offset stroke)))))