[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv21426

Modified Files:
	ChangeLog slime.el 
Log Message:
(slime-popup-buffer-quit): Must call bury-buffer without argument.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/17 23:01:02	1.1463
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/17 23:01:12	1.1464
@@ -4,6 +4,7 @@
 	(slime-inspector-mode-map): Bind it to ".".
 	(sldb-highlight-sexp): Use slime-flash-region rather than a
 	permanent overlay.
+	(slime-popup-buffer-quit): Must call bury-buffer without argument.
 
 	* swank.lisp (find-source-location-for-emacs): New function.
 
--- /project/slime/cvsroot/slime/slime.el	2008/08/17 23:01:06	1.1002
+++ /project/slime/cvsroot/slime/slime.el	2008/08/17 23:01:13	1.1003
@@ -1047,7 +1047,7 @@
       (slime-popup-buffer-restore-snapshot))
     (setq slime-popup-buffer-saved-emacs-snapshot nil)
     (cond (kill-buffer-p (kill-buffer buffer))
-          (t (bury-buffer buffer)))))
+          (t (with-current-buffer buffer (bury-buffer))))))
 
 (defun slime-popup-buffer-snapshot-unchanged-p ()
   (equalp (slime-current-emacs-snapshot-fingerprint)