[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog inferior-slime.el 
Log Message:
* inferior-slime.el (inferior-slime-stop-transcript): Switch
to the right the buffer.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/08/27 15:46:01	1.237
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/08/27 20:15:43	1.238
@@ -4,6 +4,11 @@
 	(slime-completions-for-character): Append #\ to the character names.
 	This fixes character completion, reported by Nick Levine.
 
+2009-08-24  Helmut Eller  <heller at common-lisp.net>
+
+	* inferior-slime.el (inferior-slime-stop-transcript): Switch
+	to the right buffer.
+
 2009-08-21  Helmut Eller  <heller at common-lisp.net>
 
 	* inferior-slime.el (inferior-slime-show-transcript)
--- /project/slime/cvsroot/slime/contrib/inferior-slime.el	2009/08/21 17:16:43	1.7
+++ /project/slime/cvsroot/slime/contrib/inferior-slime.el	2009/08/27 20:15:43	1.8
@@ -107,12 +107,13 @@
 	      nil t)))
 
 (defun inferior-slime-stop-transcript ()
-  (run-with-timer 0.2 nil 
-		  (lambda (buffer) 
-		    (with-current-buffer buffer
-		      (remove-hook 'comint-output-filter-functions
-				   'inferior-slime-show-transcript t)))
-		  (current-buffer)))
+  (with-current-buffer (process-buffer (slime-inferior-process))
+    (run-with-timer 0.2 nil 
+		    (lambda (buffer) 
+		      (with-current-buffer buffer
+			(remove-hook 'comint-output-filter-functions
+				     'inferior-slime-show-transcript t)))
+		    (current-buffer))))
 
 (defun inferior-slime-init ()
   (add-hook 'slime-inferior-process-start-hook 'inferior-slime-hook-function)