[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
Move i/o related event handlers to slime-repl.el.

* slime-repl.el (slime-repl-event-hook-function): Handle some
events here.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/24 08:13:51	1.146
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/24 08:13:56	1.147
@@ -1,5 +1,12 @@
 2008-12-23  Helmut Eller  <heller at common-lisp.net>
 
+	Move i/o related event handlers to slime-repl.el.
+
+	* slime-repl.el (slime-repl-event-hook-function): Handle some
+	events here.
+
+2008-12-23  Helmut Eller  <heller at common-lisp.net>
+
 	* slime-editing-commands.el (slime-editing-commands-init): Bind
 	slime-close-all-parens-in-sexp.
 
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2008/12/24 08:07:03	1.1
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2008/12/24 08:13:56	1.2
@@ -1451,12 +1451,28 @@
            (pop-to-buffer repl-buffer)
            (goto-char (point-max))))))
 
-(defun slime-repl-connected-hook ()
+(defun slime-repl-connected-hook-function ()
   (slime-hide-inferior-lisp-buffer)
   (slime-init-output-buffer (slime-connection)))
 
+(defun slime-repl-event-hook-function (event)
+  (destructure-case event
+    ((:write-string output &optional target)
+     (slime-write-string output target)
+     t)
+    ((:read-string thread tag)
+     (assert thread)
+     (slime-repl-read-string thread tag)
+     t)
+    ((:open-dedicated-output-stream port)
+     (slime-open-stream-to-lisp port)
+     t)
+    (t nil)))
+
 (defun slime-repl-init ()
-  (add-hook 'slime-connected-hook 'slime-repl-connected-hook))
+  (add-hook 'slime-connected-hook 'slime-repl-connected-hook-function)
+  (add-hook 'slime-event-hooks 'slime-repl-event-hook-function)
+  )
 
 (def-slime-test package-updating
     (package-name nicknames)