[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv2671

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-auto-select-connection, slime-auto-connect):
Turn them into customizable variables.


--- /project/slime/cvsroot/slime/ChangeLog	2009/08/11 09:15:02	1.1833
+++ /project/slime/cvsroot/slime/ChangeLog	2009/08/13 22:34:39	1.1834
@@ -1,3 +1,8 @@
+2009-08-13  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-auto-select-connection, slime-auto-connect):
+	Turn them into customizable variables.
+
 2009-08-11  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank-sbcl.lisp (swank-compile-string): Make sure that it
--- /project/slime/cvsroot/slime/slime.el	2009/08/10 19:30:33	1.1211
+++ /project/slime/cvsroot/slime/slime.el	2009/08/13 22:34:39	1.1212
@@ -1867,7 +1867,13 @@
            (error "Connection closed."))
           (t conn))))
 
-(defvar slime-auto-connect 'never)
+(defcustom slime-auto-connect 'never
+  "Controls auto connection when information from lisp process is needed.
+This doesn't mean it will connect right after Slime is loaded."
+  :group 'slime-mode
+  :type '(choice (const never)
+                 (const always)
+                 (const ask)))
 
 (defun slime-auto-connect ()
   (cond ((or (eq slime-auto-connect 'always)
@@ -1880,7 +1886,12 @@
            (slime-connection)))
         (t nil)))
 
-(defvar slime-auto-select-connection 'ask)
+(defcustom slime-auto-select-connection 'ask
+  "Controls auto selection after the default connection was quited."
+  :group 'slime-mode
+  :type '(choice (const never)
+                 (const always)
+                 (const ask)))
 
 (defun slime-auto-select-connection ()
   (let* ((c0 (car slime-net-processes))