Commit e0f53d63 authored by Troels Henriksen's avatar Troels Henriksen

The current buffer is now NIL if no the current window is not a

buffer-pane.
parent e37aa8c5
......@@ -307,7 +307,8 @@ window"))
(views climacs)))))
(defmethod esa-current-buffer ((application-frame climacs))
(buffer (current-view (esa-current-window application-frame))))
(when (buffer-pane-p (esa-current-window application-frame))
(buffer (current-view (esa-current-window application-frame)))))
(defmethod (setf esa-current-buffer) ((new-buffer climacs-buffer)
(application-frame climacs))
......
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