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)