[climacs-cvs] CVS update: climacs/html-syntax.lisp climacs/packages.lisp climacs/pane.lisp climacs/syntax.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv20065

Modified Files:
	html-syntax.lisp packages.lisp pane.lisp syntax.lisp 
Log Message:
Implemented the new buffer-modification protocol with both
update-syntax and update-syntax-for-display.

Date: Sat Feb  5 07:49:53 2005
Author: rstrandh

Index: climacs/html-syntax.lisp
diff -u climacs/html-syntax.lisp:1.2 climacs/html-syntax.lisp:1.3
--- climacs/html-syntax.lisp:1.2	Sat Feb  5 07:25:29 2005
+++ climacs/html-syntax.lisp	Sat Feb  5 07:49:53 2005
@@ -181,6 +181,8 @@
 		 (return-from find-bad-parse-tree parse-tree))))
 	   (parse-trees state)))
 
+(defgeneric empty-state-p (state))
+
 (defmethod empty-state-p (state)
   (maphash (lambda (key val)
 	     (declare (ignore key))


Index: climacs/packages.lisp
diff -u climacs/packages.lisp:1.45 climacs/packages.lisp:1.46
--- climacs/packages.lisp:1.45	Wed Feb  2 08:59:41 2005
+++ climacs/packages.lisp	Sat Feb  5 07:49:53 2005
@@ -84,7 +84,7 @@
   (:use :clim-lisp :clim :climacs-buffer :climacs-base :flexichain)
   (:export #:syntax #:define-syntax
 	   #:basic-syntax
-	   #:update-syntax
+	   #:update-syntax #:update-syntax-for-display
            #:syntax-line-indentation
 	   #:beginning-of-paragraph #:end-of-paragraph
 	   #:forward-to-error #:backward-to-error))


Index: climacs/pane.lisp
diff -u climacs/pane.lisp:1.17 climacs/pane.lisp:1.18
--- climacs/pane.lisp:1.17	Wed Feb  2 08:59:41 2005
+++ climacs/pane.lisp	Sat Feb  5 07:49:53 2005
@@ -464,6 +464,7 @@
 	     (setf (full-redisplay-p pane) nil))
       (adjust-cache pane))
   (fill-cache pane)
+  (update-syntax-for-display (buffer pane) (syntax (buffer pane)) (top pane) (bot pane))
   (display-cache pane (if current-p +red+ +blue+)))
 
 (defgeneric full-redisplay (pane))


Index: climacs/syntax.lisp
diff -u climacs/syntax.lisp:1.29 climacs/syntax.lisp:1.30
--- climacs/syntax.lisp:1.29	Wed Feb  2 08:59:41 2005
+++ climacs/syntax.lisp	Sat Feb  5 07:49:53 2005
@@ -27,6 +27,8 @@
 
 (defgeneric update-syntax (buffer syntax))
 
+(defgeneric update-syntax-for-display (buffer syntax from to))
+
 (defgeneric syntax-line-indentation (mark tab-width syntax)
   (:documentation "Return the correct indentation for the line containing
 the mark, according to the specified syntax."))
@@ -66,6 +68,10 @@
 
 (defmethod update-syntax (buffer (syntax basic-syntax))
   (declare (ignore buffer))
+  nil)
+
+(defmethod update-syntax-for-display (buffer (syntax basic-syntax) from to)
+  (declare (ignore buffer from to))
   nil)
 
 (defmethod syntax-line-indentation (mark tab-width (syntax basic-syntax))