[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv11440

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-cycle-connections): Add
`slime-cycle-connections-hook', to be used by slime-repl.

* contrib/slime-repl.el (slime-change-repl-to-default-connection): New
function.
Changes the current REPL to the REPL of the default connection. If
the current buffer is not a REPL, don't do anything.
Put it into `slime-cycle-connections-hook', so that when
connections are cycled through it will change the currently
displayed REPL.


--- /project/slime/cvsroot/slime/ChangeLog	2011/12/21 16:19:51	1.2288
+++ /project/slime/cvsroot/slime/ChangeLog	2011/12/23 20:03:15	1.2289
@@ -1,3 +1,8 @@
+2011-12-23  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-cycle-connections): Add
+	`slime-cycle-connections-hook', to be used by slime-repl.
+
 2011-12-21  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-sbcl.lisp (input-ready-p): Don't use
--- /project/slime/cvsroot/slime/slime.el	2011/12/12 06:59:26	1.1390
+++ /project/slime/cvsroot/slime/slime.el	2011/12/23 20:03:15	1.1391
@@ -1811,6 +1811,8 @@
   "Make PROCESS the default connection."
   (setq slime-default-connection process))
 
+(defvar slime-cycle-connections-hook nil)
+
 (defun slime-cycle-connections ()
   "Change current slime connection, cycling through all connections."
   (interactive)
@@ -1819,6 +1821,7 @@
                    slime-net-processes))
          (p (car tail)))
     (slime-select-connection p)
+    (run-hooks 'slime-cycle-connections-hook)
     (message "Lisp: %s %s" (slime-connection-name p) (process-contact p))))
 
 (defmacro* slime-with-connection-buffer ((&optional process) &rest body)