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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-maybe-start-lisp): Check that *inferior-lisp* exists /and/ has
a running process. Fixes a startup problem if your inferior-lisp has
died and you want to restart SLIME.

Date: Thu Jul 22 02:38:43 2004
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.376 slime/slime.el:1.377
--- slime/slime.el:1.376	Wed Jul 21 12:53:53 2004
+++ slime/slime.el	Thu Jul 22 02:38:43 2004
@@ -1185,7 +1185,7 @@
 
 (defun slime-maybe-start-lisp ()
   "Start an inferior lisp. Instruct it to load Swank."
-  (unless (get-buffer "*inferior-lisp*")
+  (unless (get-buffer-process (get-buffer "*inferior-lisp*"))
     (call-interactively 'inferior-lisp)
     (when slime-kill-without-query-p
       (process-kill-without-query (inferior-lisp-proc)))