[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Add customization variable for the `slime-connect' port.

* slime.el (slime-port): New variable.


--- /project/slime/cvsroot/slime/ChangeLog	2008/02/22 15:19:37	1.1300
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/23 10:26:48	1.1301
@@ -1,3 +1,9 @@
+2008-02-23  Zach Beane  <xach at xach.com>
+
+	Add customization variable for the `slime-connect' port.
+
+	* slime.el (slime-port): New variable.
+
 2008-02-22  Mark Evenson <mark.evenson at gmx.at>
 
 	* swank-abcl.lisp (getpid): Return '0' in case of error.
--- /project/slime/cvsroot/slime/slime.el	2008/02/22 14:24:52	1.910
+++ /project/slime/cvsroot/slime/slime.el	2008/02/23 10:26:49	1.911
@@ -209,6 +209,16 @@
   :type '(boolean)
   :group 'slime-lisp)
 
+(defcustom slime-lisp-host "127.0.0.1"
+  "The default hostname (or IP address) to connect to."
+  :type 'string
+  :group 'slime-lisp)
+
+(defcustom slime-port 4005
+  "Port to use as the default for `slime-connect'."
+  :type 'integer
+  :group 'slime-lisp)
+
 ;;;;; slime-mode
 
 (defgroup slime-mode nil
@@ -1134,9 +1144,6 @@
   "*The name of the default Lisp implementation.
 See `slime-lisp-implementations'")
 
-(defvar slime-lisp-host "127.0.0.1"
-  "The default hostname (or IP address) to connect to.")
-
 ;; dummy definitions for the compiler
 (defvar slime-net-coding-system)
 (defvar slime-net-processes)
@@ -1232,7 +1239,8 @@
 (defun slime-connect (host port &optional coding-system)
   "Connect to a running Swank server."
   (interactive (list (read-from-minibuffer "Host: " slime-lisp-host)
-                     (read-from-minibuffer "Port: " "4005" nil t)))
+                     (read-from-minibuffer "Port: " (format "%d" slime-port)
+                                           nil t)))
   (when (and (interactive-p) slime-net-processes
              (y-or-n-p "Close old connections first? "))
     (slime-disconnect))