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