[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	gui.lisp 
Log Message:
C-x C-b now behaves as an Emacs user would expect.


--- /project/climacs/cvsroot/climacs/gui.lisp	2006/07/21 06:25:45	1.221
+++ /project/climacs/cvsroot/climacs/gui.lisp	2006/07/22 20:35:06	1.222
@@ -432,9 +432,9 @@
   (let* ((buffers (buffers *application-frame*))
 	 (position (position buffer buffers))
 	 (pane (current-window)))
-    (if position
-	(rotatef (car buffers) (nth position buffers))
-	(push buffer (buffers *application-frame*)))
+    (when position
+      (setf buffers (delete buffer buffers)))
+    (push buffer (buffers *application-frame*))
     (setf (offset (point (buffer pane))) (offset (point pane)))
     (setf (buffer pane) buffer)
     (full-redisplay pane)