[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	typeout.lisp 
Log Message:
Added method for clear-redisplay-information.


--- /project/climacs/cvsroot/climacs/typeout.lisp	2008/01/23 19:08:47	1.5
+++ /project/climacs/cvsroot/climacs/typeout.lisp	2008/01/30 07:32:30	1.6
@@ -45,6 +45,9 @@
   "Return true if `view' is a typeout view, false otherwise."
   (typep view 'typeout-view))
 
+(defmethod clear-redisplay-information ((view typeout-view))
+  (setf (dirty view) t))
+
 (defmethod handle-redisplay ((pane drei-pane) (view typeout-view) (region region))
   (if (and (not (dirty view))
            (eq (output-record-parent (output-history view))