[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv6234

Modified Files:
	pane.lisp 
Log Message:
Improve performance slighly by changing the use of `updating-output'


--- /project/climacs/cvsroot/climacs/pane.lisp	2006/07/27 13:58:57	1.47
+++ /project/climacs/cvsroot/climacs/pane.lisp	2006/08/20 10:29:17	1.48
@@ -371,6 +371,7 @@
 	     (unless (null saved-index)
 	       (let ((contents (coerce (subseq line saved-index index) 'string)))
 		 (updating-output (pane :unique-id (incf id)
+                                        :id-test #'=
 					:cache-value contents
 					:cache-test #'string=)
 		   (present-contents contents pane)))
@@ -400,13 +401,16 @@
 			((characterp obj)
 			 (output-word index)
 			 (updating-output (pane :unique-id (incf id)
-						:cache-value obj)
+                                                :id-test #'=
+						:cache-value obj
+                                                :cache-test #'equal)
 			   (present obj 'character :stream pane)))
 			(t
 			 (output-word index)
 			 (updating-output (pane :unique-id (incf id)
+                                                :id-test #'=
 						:cache-value obj
-						:cache-test #'eq)
+						:cache-test #'equal)
 			   (present obj 'character :stream pane))))
 		  (incf scan)
 	       finally (output-word index)
@@ -547,15 +551,12 @@
 	   for id from 0 below (nb-elements cache)
 	   do (setf scan start-offset)
 	      (updating-output
-		  (pane :unique-id (element* cache id)
-			:cache-value (if (<= start-offset
-					     (offset (point pane))
-					     (+ start-offset (length (element* cache id))))
-					 (cons nil nil)
-					 (element* cache id))
-			:cache-test #'eq)
-		(display-line pane (element* cache id) start-offset
-			      (syntax (buffer pane)) (stream-default-view pane)))
+		  (pane :unique-id id
+                        :id-test #'equal
+			:cache-value (element* cache id)
+			:cache-test #'equal)
+ 		(display-line pane (element* cache id) start-offset
+ 			      (syntax (buffer pane)) (stream-default-view pane)))
 	      (incf start-offset (1+ (length (element* cache id)))))
      (when (mark= scan (point pane))
        (multiple-value-bind (x y) (stream-cursor-position pane)