[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv27988

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el: Added missing pieces to make `slime-cycle-connections'
available from keystrokes.
(slime-prefix-bindings): Added "\C-xn" entry.
(slime-cycle-connections): Corrected grammar in doc string.
(def-slime-selector-method): Added menu item `n' to SLIME selector
menu.

* doc/slime.texi: Added a description for the new key sequence for
`slime-cycle-connections' and for the new menu item in the SLIME
selector menu.
Node slime-selector: Added menu item `n' and cross-references to
"Multiple Connections" node.
Node Multiple connections: Added C-c C-x n description.  Added
cross-references to `slime-selector' node.


--- /project/slime/cvsroot/slime/ChangeLog	2010/01/31 19:07:54	1.1976
+++ /project/slime/cvsroot/slime/ChangeLog	2010/02/01 14:51:25	1.1977
@@ -1,3 +1,20 @@
+2010-02-01  Mark Harig <idirectscm at aim.com>
+
+	* slime.el: Added missing pieces to make `slime-cycle-connections'
+	available from keystrokes.
+	(slime-prefix-bindings): Added "\C-xn" entry.
+	(slime-cycle-connections): Corrected grammar in doc string.
+	(def-slime-selector-method): Added menu item `n' to SLIME selector
+	menu.
+
+	* doc/slime.texi: Added a description for the new key sequence for
+	`slime-cycle-connections' and for the new menu item in the SLIME
+	selector menu.
+	Node slime-selector: Added menu item `n' and cross-references to
+	"Multiple Connections" node.
+	Node Multiple connections: Added C-c C-x n description.  Added
+	cross-references to `slime-selector' node.
+
 2010-01-31  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* hyperspec.el: When using C-c C-d ~ TAB, previously there were
--- /project/slime/cvsroot/slime/slime.el	2010/01/30 15:59:52	1.1266
+++ /project/slime/cvsroot/slime/slime.el	2010/02/01 14:51:25	1.1267
@@ -506,6 +506,7 @@
     ("\C-t"  slime-toggle-trace-fdefinition)
     ("I"     slime-inspect)
     ("\C-xt" slime-list-threads)
+    ("\C-xn" slime-cycle-connections)
     ("\C-xc" slime-list-connections)
     ("<"     slime-list-callers)
     (">"     slime-list-callees)
@@ -1822,7 +1823,7 @@
   (setq slime-default-connection process))
 
 (defun slime-cycle-connections ()
-  "Change current slime connection cycling through all connection."
+  "Change current slime connection, cycling through all connections."
   (interactive)
   (let* ((tail (or (cdr (member (slime-current-connection)
                                 slime-net-processes))
@@ -6807,6 +6808,13 @@
   (slime-list-connections)
   slime-connections-buffer-name)
 
+(def-slime-selector-method ?n
+  "Cycle to the next Lisp connection."
+  (slime-cycle-connections)
+  (concat "*slime-repl "
+          (slime-connection-name (slime-current-connection))
+          "*"))
+
 (def-slime-selector-method ?t
   "SLIME threads buffer."
   (slime-list-threads)