[climacs-cvs] CVS climacs

[thenriksen]

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))