Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv21582/Drei Modified Files: views.lisp Log Message: Delete the line cache when changing the buffer of a Drei buffer view. --- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/05/03 07:47:17 1.45 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/05/15 13:51:40 1.46 @@ -645,7 +645,7 @@ (defmethod (setf buffer) :after (buffer (view drei-buffer-view)) (invalidate-all-strokes view) - (with-accessors ((top top) (bot bot) + (with-accessors ((top top) (bot bot) (lines lines) (lines-prefix lines-prefix-size) (lines-suffix lines-suffix-size) (buffer-size last-seen-buffer-size)) view @@ -654,6 +654,7 @@ lines-prefix 0 lines-suffix 0 buffer-size 0) + (delete-elements* lines 0 (nb-elements lines)) (update-line-data view))) (defmethod cache-string :around ((view drei-buffer-view))