[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
(*pre-reply-hook*): Add 'force-user-output.
[def-slime-test] (interrupt-at-toplevel, interrupt-in-debugger):
Use it.

--- /project/slime/cvsroot/slime/ChangeLog	2008/09/17 18:42:12	1.1514
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/17 18:42:17	1.1515
@@ -8,6 +8,8 @@
 	* swank.lisp (send-user-output): Lifted from make-output-function.
 	Make this a top-level function for easier redefinition.
 
+	(*pre-reply-hook*): Add 'force-user-output.
+
 	* slime.el (slime-test-find-top-level-restart): New function.
 	[def-slime-test] (interrupt-at-toplevel, interrupt-in-debugger):
 	Use it.
--- /project/slime/cvsroot/slime/swank.lisp	2008/09/17 18:42:12	1.591
+++ /project/slime/cvsroot/slime/swank.lisp	2008/09/17 18:42:17	1.592
@@ -1551,6 +1551,8 @@
 (defun force-user-output ()
   (force-output (connection.user-io *emacs-connection*)))
 
+(add-hook *pre-reply-hook* 'force-user-output)
+
 (defun clear-user-input  ()
   (clear-input (connection.user-input *emacs-connection*)))