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@xach.com + + Add customization variable for the `slime-connect' port. + + * slime.el (slime-connection-port): New variable. + 2008-02-21 Tobias C. Rittweiler tcr@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))
* Zach Beane [2008-02-22 02:48+0100] writes:
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.
Committed.
Helmut.