[climacs-cvs] CVS climacs

[crhodes]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv31294

Modified Files:
	gui.lisp 
Log Message:
Make kill-buffer do a full redisplay of the replacement buffer.


--- /project/climacs/cvsroot/climacs/gui.lisp	2006/03/27 15:43:17	1.208
+++ /project/climacs/cvsroot/climacs/gui.lisp	2006/03/27 15:54:31	1.209
@@ -462,7 +462,9 @@
      ;; Always need one buffer.
      (when (null buffers)
        (make-buffer "*scratch*"))
-     (setf (buffer (current-window)) (car buffers))))
+     (setf (buffer (current-window)) (car buffers))
+     (full-redisplay (current-window))
+     (buffer (current-window))))
 
 (defmethod kill-buffer ((name string))
   (let ((buffer (find name (buffers *application-frame*)