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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-maybe-start-multiprocessing): Call
swank:startup-multiprocessing not
swank:startup-multiprocessing-for-emacs.  Reported by Paolo Amoroso.

Date: Sat Feb  7 15:59:45 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.206 slime/slime.el:1.207
--- slime/slime.el:1.206	Sat Feb  7 14:20:46 2004
+++ slime/slime.el	Sat Feb  7 15:59:44 2004
@@ -921,11 +921,10 @@
 
 (defun slime-maybe-close-old-connections ()
   "Offer to keep old connections alive, otherwise disconnect."
-  (unless (or (null slime-net-processes)
+  (unless (or (not (slime-connected-p))
               (y-or-n-p "Keep old connections? "))
     (slime-disconnect)))
 
-
 (defun slime-maybe-start-lisp ()
   "Start an inferior lisp unless one is already running."
   (unless (get-buffer-process (get-buffer "*inferior-lisp*"))
@@ -938,7 +937,7 @@
 (defun slime-maybe-start-multiprocessing ()
   (when slime-multiprocessing
     (comint-send-string (inferior-lisp-proc)
-                        "(swank:startup-multiprocessing-for-emacs)")))
+                        "(swank:startup-multiprocessing)")))
 
 (defun slime-start-swank-server ()
   "Start a Swank server on the inferior lisp."