Commit 4f906351 authored by Troels Henriksen's avatar Troels Henriksen
Browse files

Added method for clear-redisplay-information.

parent bc6f08e9
......@@ -45,6 +45,9 @@ record history."))
"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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment