27 Mar
2006
27 Mar
'06
5:54 p.m.
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*)