[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv6346/Drei

Modified Files:
	views.lisp 
Log Message:
Fixed range check on access to the flexichain of lines. Oops.


--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/02/15 13:16:17	1.39
+++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp	2008/02/15 13:17:54	1.40
@@ -797,7 +797,7 @@
                         return t)
                   ;; If the line is joined with the one before or
                   ;; after it, a newline object has been removed.
-                  (or (when (/= line-index (nb-elements (lines view)))
+                  (or (when (< (1+ line-index) (nb-elements (lines view)))
                         (= (start-offset (element* (lines view) (1+ line-index)))
                            (end-offset line)))
                       (when (plusp line-index)