[slime-devel] Patch for customizing slime-connect port

[Zach Beane]

I use several different Lisp images on the same system, and have each
slime listen on different local ports. Every time I use M-x
slime-connect, I have to delete 4005 and enter the custom port.

Below is a patch that allows the default port to be customized.

Zach


Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/ChangeLog,v
retrieving revision 1.1294
diff -u -r1.1294 ChangeLog
--- ChangeLog	21 Feb 2008 12:56:21 -0000	1.1294
+++ ChangeLog	22 Feb 2008 01:45:12 -0000
@@ -1,3 +1,9 @@
+2008-02-21  Zach Beane  <xach at xach.com>
+
+	Add customization variable for the `slime-connect' port.
+
+	* slime.el (slime-connection-port): New variable.
+
 2008-02-21  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	Fix regressions in the `find-definition' test case on SBCL:
Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.907
diff -u -r1.907 slime.el
--- slime.el	21 Feb 2008 12:55:57 -0000	1.907
+++ slime.el	22 Feb 2008 01:45:12 -0000
@@ -212,6 +212,12 @@
   :type '(boolean)
   :group 'slime-lisp)
 
+(defcustom slime-connection-port 4005
+  "Port to use as the default for `slime-connect'."
+  :type 'integer
+  :group 'slime-lisp)
+
+
 ;;;;; slime-mode
 
 (defgroup slime-mode nil
@@ -1269,7 +1275,9 @@
 (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-connection-port)
+                                           nil t)))
   (when (and (interactive-p) slime-net-processes
              (y-or-n-p "Close old connections first? "))
     (slime-disconnect))