From 6346fb4a6e8ef9a9d1feeda5144b4d0d4d7cef8f Mon Sep 17 00:00:00 2001 From: Edwin Watkeys Date: Wed, 29 Jun 2011 07:40:24 -0700 Subject: [PATCH 1/2] Pick a nondeterministic-y random-y number in the port number stratosphere. --- clojure-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/clojure-mode.el b/clojure-mode.el index c0820145..5c0c2a35 100644 --- a/clojure-mode.el +++ b/clojure-mode.el @@ -847,7 +847,7 @@ use (put-clojure-indent 'some-symbol 'defun)." (defun clojure-jack-in () (interactive) ;; graaaahhhh--no closures in elisp (23) - (setq clojure-swank-port (+ 1024 (* (random 64512))) + (setq clojure-swank-port (- 65335 (mod (caddr (current-time)) 4096)) slime-net-coding-system 'utf-8-unix) (let* ((swank-cmd (format clojure-swank-command clojure-swank-port)) From 42292ec20acbb72af9645d4595ecf72e3168946f Mon Sep 17 00:00:00 2001 From: Edwin Watkeys Date: Wed, 29 Jun 2011 07:48:15 -0700 Subject: [PATCH 2/2] Edited clojure-mode.el via GitHub --- clojure-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/clojure-mode.el b/clojure-mode.el index 5c0c2a35..30d050cd 100644 --- a/clojure-mode.el +++ b/clojure-mode.el @@ -847,7 +847,7 @@ use (put-clojure-indent 'some-symbol 'defun)." (defun clojure-jack-in () (interactive) ;; graaaahhhh--no closures in elisp (23) - (setq clojure-swank-port (- 65335 (mod (caddr (current-time)) 4096)) + (setq clojure-swank-port (- 65535 (mod (caddr (current-time)) 4096)) slime-net-coding-system 'utf-8-unix) (let* ((swank-cmd (format clojure-swank-command clojure-swank-port))