[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv14790

Modified Files:
	ChangeLog slime.el 
Log Message:
If there is no connection, offer the option to start SLIME.

* slime.el (slime-connection): Ask and maybe start SLIME.
(slime-selector-method: ?r): No need to ask here any more.


--- /project/slime/cvsroot/slime/ChangeLog	2008/02/23 10:28:01	1.1302
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/23 10:29:06	1.1303
@@ -1,3 +1,10 @@
+2008-02-23  Nikodemus Siivola  <nikodemus at random-state.net>
+
+	If there is no connection, offer the option to start SLIME.
+
+	* slime.el (slime-connection): Ask and maybe start SLIME.
+	(slime-selector-method: ?r): No need to ask here any more.
+
 2008-02-23  Helmut Eller  <heller at common-lisp.net>
 
 	In the inspector, show one-element lists as list not as pair.
--- /project/slime/cvsroot/slime/slime.el	2008/02/23 10:26:49	1.911
+++ /project/slime/cvsroot/slime/slime.el	2008/02/23 10:29:06	1.912
@@ -1839,7 +1839,13 @@
     (cond ((and (not conn) slime-net-processes)
            (error "No default connection selected."))
           ((not conn)
-           (error "Not connected."))
+           (cond ((y-or-n-p "No connection.  Start Slime? ")
+                  (save-window-excursion
+                    (slime)
+                    (while (not (slime-current-connection))
+                      (sleep-for 1))
+                    (slime-connection)))
+                 (t (error "Not connected."))))
           ((not (eq (process-status conn) 'open))
            (error "Connection closed."))
           (t conn))))
@@ -7791,10 +7797,7 @@
 
 (def-slime-selector-method ?r
   "SLIME Read-Eval-Print-Loop."
-  (cond ((slime-current-connection)      
-         (slime-output-buffer))
-        ((y-or-n-p "No connection: start Slime? ")
-         (slime))))
+  (slime-output-buffer))
 
 (def-slime-selector-method ?i
   "*inferior-lisp* buffer."