[climacs-cvs] CVS climacs

[thenriksen]

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)