[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	syntax.lisp 
Log Message:
Made drei-syntax:update-parse work even without updater-functions.


--- /project/mcclim/cvsroot/mcclim/Drei/syntax.lisp	2008/01/11 02:44:13	1.12
+++ /project/mcclim/cvsroot/mcclim/Drei/syntax.lisp	2008/01/13 10:32:11	1.13
@@ -50,9 +50,13 @@
   "Make sure the parse for `syntax' from offset `begin' to `end'
 is up to date. `Begin' and `end' default to 0 and the size of the
 buffer of `syntax', respectively."
-  (map nil #'(lambda (updater)
-               (funcall updater begin end))
-       (updater-fns syntax)))
+  (if (null (updater-fns syntax))
+      ;; Just call `update-syntax' manually. We assume the entire
+      ;; buffer has changed.
+      (update-syntax syntax 0 0 begin end)
+      (map nil #'(lambda (updater)
+                   (funcall updater begin end))
+           (updater-fns syntax))))
 
 (define-condition no-such-operation (simple-error)
   ()