[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (background-message): Do nothing if connection.slowdown is set.

--- /project/slime/cvsroot/slime/ChangeLog	2011/12/05 11:29:00	1.2268
+++ /project/slime/cvsroot/slime/ChangeLog	2011/12/05 11:29:12	1.2269
@@ -1,7 +1,3 @@
-2011-12-05  Stas Boukarev  <stassats at gmail.com>
-
-	* start-swank.lisp: Remove :coding-system argument.
-
 2011-12-05  Helmut Eller  <heller at common-lisp.net>
 
 	Move flow control into dispatch-event.
@@ -26,11 +22,18 @@
 	(close-connection): Use it.  Can't use
 	*use-dedicated-output-stream* here.
 
+	* swank.lisp (background-message): Do nothing if
+	connection.slowdown is set.
+
 2011-12-05  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el ([test] arglist): swank::create-server now has an
 	optional argument.  Use swank::compute-backtrace instead.
 
+2011-12-05  Stas Boukarev  <stassats at gmail.com>
+
+	* start-swank.lisp: Remove :coding-system argument.
+
 2011-12-04  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (interrupt-worker-thread): Don't use find-repl-thread
--- /project/slime/cvsroot/slime/swank.lisp	2011/12/05 11:29:00	1.771
+++ /project/slime/cvsroot/slime/swank.lisp	2011/12/05 11:29:12	1.772
@@ -2106,8 +2106,9 @@
   "Display a message in Emacs' echo area.
 
 Use this function for informative messages only.  The message may even
-be dropped, if we are too busy with other things."
-  (when *emacs-connection*
+be dropped if we are too busy with other things."
+  (when (and *emacs-connection*
+             (not (connection.slowdown *emacs-connection*)))
     (send-to-emacs `(:background-message 
                      ,(apply #'format nil format-string args)))))