[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog inferior-slime.el 
Log Message:
* slime.el (slime-transcript-start-hook)
(slime-transcript-stop-hook): New hooks.
(slime-eval-with-transcript): Use them.
(slime-eval-with-transcript-cont): Deleted.

* inferior-slime.el (inferior-slime-show-transcript)
(inferior-slime-stop-transcript, inferior-slime-start-transcript):
New functions.
(inferior-slime-init): Install transcript hooks.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/08/15 08:39:10	1.235
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/08/21 17:16:43	1.236
@@ -1,3 +1,10 @@
+2009-08-21  Helmut Eller  <heller at common-lisp.net>
+
+	* inferior-slime.el (inferior-slime-show-transcript)
+	(inferior-slime-stop-transcript, inferior-slime-start-transcript):
+	New functions.
+	(inferior-slime-init): Install transcript hooks.
+
 2009-08-15  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-typeout-frame.el (slime-typeout-message): Don't call
--- /project/slime/cvsroot/slime/contrib/inferior-slime.el	2009/01/05 21:57:54	1.6
+++ /project/slime/cvsroot/slime/contrib/inferior-slime.el	2009/08/21 17:16:43	1.7
@@ -95,9 +95,30 @@
 (defun inferior-slime-switch-to-repl-buffer ()
   (switch-to-buffer (process-buffer (slime-inferior-process))))
 
+(defun inferior-slime-show-transcript (string)
+  (remove-hook 'comint-output-filter-functions
+	       'inferior-slime-show-transcript t)
+  (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)))
+
+(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)))
+
 (defun inferior-slime-init ()
   (add-hook 'slime-inferior-process-start-hook 'inferior-slime-hook-function)
   (add-hook 'slime-change-directory-hooks 'inferior-slime-change-directory)
+  (add-hook 'slime-transcript-start-hook 'inferior-slime-start-transcript)
+  (add-hook 'slime-transcript-stop-hook 'inferior-slime-stop-transcript)
   (def-slime-selector-method ?r
     "SLIME Read-Eval-Print-Loop."
     (inferior-slime-switch-to-repl-buffer)))