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

[Luke Gorrie]

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

Modified Files:
	slime.el 
Log Message:
(slime-maybe-start-lisp): Restart inferior-lisp if the process has
died.

Date: Thu Oct 23 12:24:59 2003
Author: lgorrie

Index: slime/slime.el
diff -u slime/slime.el:1.55 slime/slime.el:1.56
--- slime/slime.el:1.55	Wed Oct 22 17:03:24 2003
+++ slime/slime.el	Thu Oct 23 12:24:59 2003
@@ -565,7 +565,7 @@
         
 (defun slime-maybe-start-lisp ()
   "Start an inferior lisp unless one is already running."
-  (unless (get-buffer "*inferior-lisp*")
+  (unless (get-buffer-process (get-buffer "*inferior-lisp*"))
     (call-interactively 'inferior-lisp)
     (slime-start-swank-server)))