[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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