[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	pane.lisp packages.lisp file-commands.lisp 
Log Message:
Added code to clear the cache of panes (the previous `clear-pane'
invocation was apparently too naive).


--- /project/climacs/cvsroot/climacs/pane.lisp	2006/03/27 19:24:07	1.36
+++ /project/climacs/cvsroot/climacs/pane.lisp	2006/04/23 19:37:58	1.37
@@ -286,6 +286,14 @@
   (:default-initargs
    :default-view +climacs-textual-view+))
 
+(defgeneric clear-cache (pane)
+  (:documentation "Clear the cache for `pane.'"))
+
+(defmethod clear-cache ((pane climacs-pane))
+  (with-slots (cache) pane
+    (setf cache (let ((cache (make-instance 'standard-flexichain)))
+                  (insert* cache 0 nil)
+                  cache))))
 
 (defmethod tab-width ((pane climacs-pane))
   (tab-width (stream-default-view pane)))
--- /project/climacs/cvsroot/climacs/packages.lisp	2006/04/23 12:11:26	1.88
+++ /project/climacs/cvsroot/climacs/packages.lisp	2006/04/23 19:37:58	1.89
@@ -147,6 +147,7 @@
   (:export #:climacs-buffer #:needs-saving #:filepath
 	   #:read-only-p #:buffer-read-only
 	   #:climacs-pane #:point #:mark
+           #:clear-cache
 	   #:redisplay-pane #:full-redisplay
 	   #:display-cursor
 	   #:display-mark
--- /project/climacs/cvsroot/climacs/file-commands.lisp	2006/04/23 18:38:03	1.8
+++ /project/climacs/cvsroot/climacs/file-commands.lisp	2006/04/23 19:37:58	1.9
@@ -212,10 +212,10 @@
 	       (switch-to-buffer existing-buffer)
 	       (let ((buffer (make-buffer))
 		     (pane (current-window)))
-                 ;; Clear the pane, otherwise residue from the
+                 ;; Clear the panes cache; otherwise residue from the
                  ;; previously displayed buffer may under certain
                  ;; circumstances be displayed.
-                 (window-clear pane)
+                 (clear-cache pane)
                  (setf (syntax buffer) nil)
 		 (setf (offset (point (buffer pane))) (offset (point pane)))
 		 (setf (buffer (current-window)) buffer)