[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:

* slime.el (def-slime-test narrowing): Adapted to recent changes
  of `slime-with-output-to-temp-buffer'.


--- /project/slime/cvsroot/slime/slime.el	2008/08/07 10:13:25	1.963
+++ /project/slime/cvsroot/slime/slime.el	2008/08/07 14:06:04	1.964
@@ -8668,9 +8668,11 @@
 
       (slime-with-output-to-temp-buffer (random-buffer-name) nil
         (slime-check ("Checking that we're in Slime's temp buffer `%s'" random-buffer-name)
-          (equal (buffer-name (current-buffer)) random-buffer-name))
-        (slime-temp-buffer-quit))
-      (kill-buffer random-buffer-name)
+          (equal (buffer-name (current-buffer)) random-buffer-name)))
+      (with-current-buffer random-buffer-name
+        ;; Notice that we cannot quit the buffer within the the extent
+        ;; of slime-with-output-to-temp-buffer.
+        (slime-temp-buffer-quit t)) 
       (slime-check ("Checking that we've got back from `%s'" random-buffer-name)
         (and (eq (current-buffer) tmpbuffer)
              (= (point) defun-pos)))
--- /project/slime/cvsroot/slime/ChangeLog	2008/08/07 10:13:25	1.1402
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/07 14:06:04	1.1403
@@ -1,5 +1,10 @@
 2008-08-07  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (def-slime-test narrowing): Adapted to recent changes
+	of `slime-with-output-to-temp-buffer'.
+
+2008-08-07  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	Mode-Line will now display a buffer's connection, and a buffer's
 	package. Furthermore, stale connections will also be indicated.