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

Modified Files: views.lisp Log Message: Removed attempts at figuring out when not to reparse from view code, only the syntax modules can really make that decision.

--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/13 10:33:10 1.18 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/15 07:43:05 1.19 @@ -662,14 +662,10 @@ force-p (begin 0) (end (size (buffer view)))) (assert (>= end begin)) ;; If nothing changed, then don't call the other methods. - (let ((high-offset (- (size (buffer view)) (suffix-size view)))) - (when (or (and (> begin (prefix-size view)) - (> high-offset begin)) - (and (> end (prefix-size view)) - (>= (prefix-size view) begin)) - (/= (size (buffer view)) (buffer-size view)) - force-p) - (call-next-method)))) + (when (or (not (= (prefix-size view) (suffix-size view) + (buffer-size view) (size (buffer view)))) + force-p) + (call-next-method)))

(defmethod synchronize-view ((view drei-syntax-view) &key (begin 0) (end (size (buffer view))))