[climacs-cvs] CVS climacs

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