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

Small performance improvement for typeout views.

parent 4a9897fe
......@@ -47,8 +47,8 @@ record history."))
(defmethod handle-redisplay ((pane drei-pane) (view typeout-view) (region region))
(if (and (not (dirty view))
(find (output-history view)
(output-record-children (stream-output-history pane))))
(eq (output-record-parent (output-history view))
(stream-output-history pane)))
(replay (stream-output-history pane) pane region)
(call-next-method)))
......
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