[slime-cvs] CVS update: slime/slime.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv17863

Modified Files:
	slime.el 
Log Message:
(slime-dispatch-event): Use `slime-busy-p' to control the "; pipelined
request" message. This way it takes requests blocked in the debugger
into account and avoids spurious messages.

Date: Sun Mar 13 20:39:15 2005
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.470 slime/slime.el:1.471
--- slime/slime.el:1.470	Sat Mar 12 17:10:35 2005
+++ slime/slime.el	Sun Mar 13 20:39:15 2005
@@ -2188,7 +2188,7 @@
       ;;
       ((:emacs-rex form package thread continuation)
        (slime-set-state "|eval...")
-       (when (and (slime-rex-continuations) (slime-use-sigint-for-interrupt))
+       (when (and (slime-use-sigint-for-interrupt) (slime-busy-p))
          (message "; pipelined request... %S" form))
        (let ((id (incf (slime-continuation-counter))))
          (push (cons id continuation) (slime-rex-continuations))