Commit 58d901cc authored by Troels Henriksen's avatar Troels Henriksen

A pane is now only a buffer pane if its view is a buffer-view.

parent 0f32fb00
......@@ -152,7 +152,7 @@ window"))
nil)
(defmethod buffer-pane-p ((pane climacs-pane))
t)
(typep (view pane) 'drei-buffer-view))
(defmethod in-focus-p ((pane climacs-pane))
(eq pane (first (windows *application-frame*))))
......
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