[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-cycle-connections): New command.

--- /project/slime/cvsroot/slime/ChangeLog	2008/09/24 09:13:30	1.1542
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/24 09:14:13	1.1543
@@ -1,3 +1,7 @@
+2008-09-24  Knut Olav Bøhmer <knut-olav.bohmer at telenor.com>
+
+	* slime.el (slime-cycle-connections): New command.
+
 2008-09-24  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-prefix-map): New keymap.
--- /project/slime/cvsroot/slime/slime.el	2008/09/24 09:13:38	1.1042
+++ /project/slime/cvsroot/slime/slime.el	2008/09/24 09:14:15	1.1043
@@ -1854,6 +1854,17 @@
   "Make PROCESS the default connection."
   (setq slime-default-connection process))
 
+(defun slime-cycle-connections ()
+  "Change current slime connection, and make it buffer local."
+  (interactive)
+  (let* ((tail (or (cdr (member (slime-current-connection)
+                                slime-net-processes))
+                   slime-net-processes))
+         (p (car tail)))
+    (slime-select-connection p)
+    (setq slime-buffer-connection p)
+    (message "Lisp: %s %s" (slime-connection-name p) (process-contact p))))
+
 (defmacro* slime-with-connection-buffer ((&optional process) &rest body)
   "Execute BODY in the process-buffer of PROCESS.
 If PROCESS is not specified, `slime-connection' is used.