[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (test disconnect): Call slime-inferior-process
with explicit connection argument to avoid clashes with
buffer-local connections.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/08 08:59:25	1.1407
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/08 09:34:41	1.1408
@@ -1,3 +1,9 @@
+2008-08-08  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (test disconnect): Call slime-inferior-process
+	with explicit connection argument to avoid clashes with
+	buffer-local connections.
+
 2008-08-08  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (slime-create-macroexpansion-buffer): Make fontifying
--- /project/slime/cvsroot/slime/slime.el	2008/08/08 08:59:22	1.968
+++ /project/slime/cvsroot/slime/slime.el	2008/08/08 09:34:41	1.969
@@ -991,7 +991,7 @@
 (put 'slime-with-temp-buffer 'lisp-indent-function 1)
 
 (defun slime-temp-buffer (name buffer-vars)
-  "Return a temporary buffer called NAME in MODE.
+  "Return a temporary buffer called NAME.
 The buffer also uses the minor-mode `slime-temp-buffer-mode'.
 Pressing `q' in the buffer will restore the window configuration
 to the way it is when the buffer was created, i.e. when this
@@ -1021,8 +1021,9 @@
 
 ;; Interface
 (defun slime-temp-buffer-quit (&optional kill-buffer-p)
-  "Get rid of the current (temp) buffer without asking. Restore the
-window configuration unless it was changed since we last activated the buffer."
+  "Get rid of the current (temp) buffer without asking.
+Restore the window configuration unless it was changed since we
+last activated the buffer."
   (interactive)
   (let ((snapshot slime-temp-buffer-saved-emacs-snapshot)
         (temp-buffer (current-buffer)))
@@ -9305,7 +9306,8 @@
       (while (member hook slime-connected-hook)
         (sit-for 0.5)
         (slime-accept-process-output nil 0.1)))
-    (slime-test-expect "We are connected again" p (slime-inferior-process))))
+    (slime-test-expect "We are connected again" p 
+                       (slime-inferior-process slime-default-connection))))
     
 
 ;;;; Utilities