[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog inferior-slime.el 
Log Message:
* inferior-slime.el (inferior-slime-switch-to-repl-buffer): New
function.
(inferior-slime-init): Bind it to a selector key.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/24 08:14:07	1.148
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/26 07:22:56	1.149
@@ -1,3 +1,9 @@
+2008-12-25  Helmut Eller  <heller at common-lisp.net>
+
+	* inferior-slime.el (inferior-slime-switch-to-repl-buffer): New
+	function.
+	(inferior-slime-init): Bind it to a selector key.
+
 2008-12-23  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-repl.el (slime-repl-connected-hook-function): Create
--- /project/slime/cvsroot/slime/contrib/inferior-slime.el	2008/12/24 08:13:47	1.3
+++ /project/slime/cvsroot/slime/contrib/inferior-slime.el	2008/12/26 07:22:56	1.4
@@ -91,7 +91,13 @@
 (defun inferior-slime-hook-function ()
   (inferior-slime-mode))
 
+(defun inferior-slime-switch-to-repl-buffer ()
+  (switch-to-buffer (process-buffer (slime-inferior-process))))
+
 (defun inferior-slime-init ()
-  (add-hook 'slime-inferior-process-start-hook 'inferior-slime-hook-function))
+  (add-hook 'slime-inferior-process-start-hook 'inferior-slime-hook-function)
+  (def-slime-selector-method ?r
+    "SLIME Read-Eval-Print-Loop."
+    (inferior-slime-switch-to-repl-buffer)))
 
 (provide 'inferior-slime)