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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-set-connection-info): Print the words of encouragement here
after all the other asynchronous initialization.

Date: Fri Oct  1 15:29:51 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.405 slime/slime.el:1.406
--- slime/slime.el:1.405	Fri Oct  1 13:59:24 2004
+++ slime/slime.el	Fri Oct  1 15:29:51 2004
@@ -1183,8 +1183,7 @@
   (let* ((process (slime-net-connect host port))
          (slime-dispatching-connection process))
     (message "Initial handshake...")
-    (slime-setup-connection process)
-    (message "Connected. %s" (slime-random-words-of-encouragement))))
+    (slime-setup-connection process)))
 
 (defun slime-start-and-load (filename &optional package)
   "Start Slime, if needed, load the current file and set the package."
@@ -1769,7 +1768,8 @@
   (setq slime-state-name "")            ; FIXME
   (slime-hide-inferior-lisp-buffer)
   (slime-init-output-buffer connection)
-  (run-hooks 'slime-connected-hook))
+  (run-hooks 'slime-connected-hook)
+  (message "Connected. %s" (slime-random-words-of-encouragement)))
 
 (defun slime-generate-connection-name (lisp-name)
   (loop for i from 1