[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog inferior-slime.el 
Log Message:
Fix bugs when *inferior-buffers* doesn't exist.

* inferior-slime.el (inferior-slime-start-transcript)
(inferior-slime-stop-transcript): Make sure the buffer exists.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/02/15 21:42:37	1.343
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/02/17 17:04:50	1.344
@@ -26,6 +26,13 @@
 	(slime-search-exports-in-defpackage): take #:symbol and :symbol
 	into account too.
 
+2010-02-17  Helmut Eller  <heller at common-lisp.net>
+
+	Fix bugs when *inferior-buffers* doesn't exist.
+
+	* inferior-slime.el (inferior-slime-start-transcript)
+	(inferior-slime-stop-transcript): Make sure the buffer exists.
+
 2010-01-14  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-repl.el: Revert the previous change because it
--- /project/slime/cvsroot/slime/contrib/inferior-slime.el	2010/01/05 10:03:02	1.9
+++ /project/slime/cvsroot/slime/contrib/inferior-slime.el	2010/02/17 17:04:50	1.10
@@ -101,19 +101,23 @@
   (display-buffer (process-buffer (slime-inferior-process)) t))
 
 (defun inferior-slime-start-transcript ()
-  (with-current-buffer (process-buffer (slime-inferior-process))
-    (add-hook 'comint-output-filter-functions 
-	      'inferior-slime-show-transcript
-	      nil t)))
+  (let ((proc (slime-inferior-process)))
+    (when proc
+      (with-current-buffer (process-buffer proc)
+	(add-hook 'comint-output-filter-functions 
+		  'inferior-slime-show-transcript
+		  nil t)))))
 
 (defun inferior-slime-stop-transcript ()
-  (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))))
+  (let ((proc (slime-inferior-process)))
+    (when proc
+      (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)