[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)))))