[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog inferior-slime.el 
Log Message:
* inferior-slime.el (inferior-slime-hook-function): New function.
(inferior-slime-init): Automatically enable it in the
*inferior-lisp* buffer.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/24 08:13:43	1.144
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2008/12/24 08:13:47	1.145
@@ -1,4 +1,9 @@
 2008-12-23  Helmut Eller  <heller at common-lisp.net>
+
+	* inferior-slime.el (inferior-slime-hook-function): New function.
+	(inferior-slime-init): Automatically enable it in the
+	*inferior-lisp* buffer.
+
 2008-12-23  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-fancy.el: Add slime-repl.
--- /project/slime/cvsroot/slime/contrib/inferior-slime.el	2007/09/10 21:44:48	1.2
+++ /project/slime/cvsroot/slime/contrib/inferior-slime.el	2008/12/24 08:13:47	1.3
@@ -71,11 +71,14 @@
 
 (defun inferior-slime-init-keymap ()
   (let ((map inferior-slime-mode-map))
-    (define-key map [return] 'inferior-slime-return)
-    (define-key map [(control return)] 'inferior-slime-closing-return)
-    (define-key map [(meta control ?m)] 'inferior-slime-closing-return)
-    (define-key map "\C-c\C-d" slime-doc-map)
-    (define-key map "\C-c\C-w" slime-who-map)
+    (slime-define-keys map
+      ([return]			'inferior-slime-return)
+      ([(control return)]	'inferior-slime-closing-return)
+      ([(meta control ?m)]	'inferior-slime-closing-return)
+      ("\t"			'slime-indent-and-complete-symbol)
+      (" "			'slime-space)
+      ("\C-c\C-d" slime-doc-map)
+      ("\C-c\C-w" slime-who-map))
     (loop for (key command . keys) in slime-keys do
 	  (destructuring-bind (&key prefixed inferior &allow-other-keys) keys
 	    (when prefixed
@@ -85,4 +88,10 @@
 
 (inferior-slime-init-keymap)
 
+(defun inferior-slime-hook-function ()
+  (inferior-slime-mode))
+
+(defun inferior-slime-init ()
+  (add-hook 'slime-inferior-process-start-hook 'inferior-slime-hook-function))
+
 (provide 'inferior-slime)