[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	slime-repl.el ChangeLog 
Log Message:
	* slime-repl.el (slime-repl-mode-map): Use the key bindings from
	`slime-editing-keys'.


--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/01/16 15:48:53	1.12
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/01/23 10:07:14	1.13
@@ -416,7 +416,9 @@
 (let ((map (copy-keymap slime-parent-map)))
   (set-keymap-parent map lisp-mode-map)
   (setq slime-repl-mode-map (make-sparse-keymap))
-  (set-keymap-parent slime-repl-mode-map map))
+  (set-keymap-parent slime-repl-mode-map map)
+  (loop for (key command) in slime-editing-keys
+        do (define-key slime-repl-mode-map key command)))
 
 (slime-define-keys slime-prefix-map
   ("\C-z" 'slime-switch-to-output-buffer)
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/01/18 14:18:53	1.167
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/01/23 10:07:14	1.168
@@ -1,3 +1,8 @@
+2009-01-23  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-repl.el (slime-repl-mode-map): Use the key bindings from
+	`slime-editing-keys'.
+
 2009-01-18  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	Local M-. and local arglist display didn't work for