Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv12015
Modified Files: file-commands.lisp Log Message: Added code to clear the pane before loading the new buffer into it.
--- /project/climacs/cvsroot/climacs/file-commands.lisp 2006/04/23 12:36:19 1.7 +++ /project/climacs/cvsroot/climacs/file-commands.lisp 2006/04/23 18:38:03 1.8 @@ -212,6 +212,10 @@ (switch-to-buffer existing-buffer) (let ((buffer (make-buffer)) (pane (current-window))) + ;; Clear the pane, otherwise residue from the + ;; previously displayed buffer may under certain + ;; circumstances be displayed. + (window-clear pane) (setf (syntax buffer) nil) (setf (offset (point (buffer pane))) (offset (point pane))) (setf (buffer (current-window)) buffer)