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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-update-banner): Restore old behaviour of using an
asynchronous evaluation to setup the REPL. This works around a problem
I'd reintroduced where the first REPL command uses the wrong keymap.

Date: Mon Jul 19 17:53:48 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.372 slime/slime.el:1.373
--- slime/slime.el:1.372	Mon Jul 19 06:53:16 2004
+++ slime/slime.el	Mon Jul 19 17:53:48 2004
@@ -1629,7 +1629,12 @@
   (slime-with-connection-buffer ()
     (setq slime-buffer-connection proc))
   (setf (slime-connection-number proc) (incf slime-connection-counter))
-  (slime-set-connection-info proc (slime-eval '(swank:connection-info))))
+  ;; We do our initialization asynchronously. The current function may
+  ;; be called from a timer, and if we setup the REPL from a timer
+  ;; then it mysteriously uses the wrong keymap for the first command.
+  (slime-eval-async '(swank:connection-info)
+                    (lambda (info)
+                      (slime-set-connection-info proc info))))
 
 (defun slime-set-connection-info (connection info)
   "Initialize CONNECTION with INFO received from Lisp."