[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv20390

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-popup-buffer-quit): Call bury-buffer with
explicit argument for compatibility with XEmacs.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/30 09:28:35	1.1572
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/30 09:28:43	1.1573
@@ -1,3 +1,8 @@
+2008-10-30  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-popup-buffer-quit): Call bury-buffer with
+	explicit argument for compatibility with XEmacs.
+
 2008-10-30  Ivan Shvedunov <ivan4th at gmail.com>
 
 	* slime.el (slime-repl-history-pattern): Use the part of input
--- /project/slime/cvsroot/slime/slime.el	2008/10/30 09:28:35	1.1054
+++ /project/slime/cvsroot/slime/slime.el	2008/10/30 09:28:43	1.1055
@@ -1052,10 +1052,9 @@
   (let ((buffer (current-buffer)))
     (when (slime-popup-buffer-snapshot-unchanged-p)
       (slime-popup-buffer-restore-snapshot))
-    (with-current-buffer buffer
-      (setq slime-popup-buffer-saved-emacs-snapshot nil) ; buffer-local var!
-      (cond (kill-buffer-p (kill-buffer nil))
-            (t (bury-buffer))))))
+    (setq slime-popup-buffer-saved-emacs-snapshot nil) ; buffer-local var!
+    (cond (kill-buffer-p (kill-buffer buffer))
+          (t (bury-buffer buffer)))))
 
 (defun slime-popup-buffer-snapshot-unchanged-p ()
   (equalp (slime-current-emacs-snapshot-fingerprint)