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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-connect): Print a message during connection attempts unless the
minibuffer is active (it's annoying to get messages while trying to
enter commands).

Date: Sun Oct 19 12:17:21 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.44 slime/slime.el:1.45
--- slime/slime.el:1.44	Sun Oct 19 08:25:29 2003
+++ slime/slime.el	Sun Oct 19 12:17:21 2003
@@ -519,6 +519,10 @@
         ;; timer-based retries.
         ((attempt-connection
           ()
+          (unless (active-minibuffer-window)
+            (message "\
+Connecting to Swank at %s:%S. (Abort with `M-x slime-disconnect'.)"
+                     host port))
           (setq slime-state-name (format "[connect:%S]" (incf attempt)))
           (force-mode-line-update)
           (setq slime-connect-retry-timer nil) ; remove old timer
@@ -532,9 +536,6 @@
                  (when retries (decf retries))
                  (setq slime-connect-retry-timer
                        (run-with-timer 1 nil #'attempt-connection))))))
-      (message "\
-Connecting to Swank at %s:%S. (Abort with `M-x slime-disconnect'.)"
-               host port)
       (attempt-connection))))
 
 (defun slime-disconnect ()