[slime-cvs] CVS slime/contrib
CVS User heller
heller at common-lisp.net
Fri Dec 26 07:22:58 UTC 2008
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)
More information about the slime-cvs
mailing list