Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv28778
Modified Files: gui.lisp Log Message: The current buffer is now NIL if no the current window is not a buffer-pane.
--- /project/climacs/cvsroot/climacs/gui.lisp 2007/12/27 16:27:47 1.246 +++ /project/climacs/cvsroot/climacs/gui.lisp 2007/12/27 16:34:08 1.247 @@ -307,7 +307,8 @@ (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))