[slime-cvs] CVS slime/contrib

[CVS User heller]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime.el (slime-editing-mode): New minor mode for use in the REPL.

* slime-repl.el (slime-repl-mode-map): Don't copy
slime-parent-map.  Instead ...
(slime-repl-mode): ... enable slime-editing-mode.

--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/30 14:47:28	1.289
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/30 14:47:40	1.290
@@ -1,5 +1,9 @@
 2009-11-30  Helmut Eller  <heller at common-lisp.net>
 
+	* slime-repl.el (slime-repl-mode-map): Don't copy
+	slime-parent-map.  Instead ...
+	(slime-repl-mode): ... enable slime-editing-mode.
+
 	* slime-presentations.el (slime-presentation-init-keymaps):
 	Replace slime-define-both-key-bindings with slime-bind-keys.
 	(slime-presentation-init-keymaps): Use slime-init-keymap.
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/11/23 12:25:42	1.32
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/11/30 14:47:40	1.33
@@ -411,14 +411,10 @@
 
 ;;;;; REPL mode setup
 
-(defvar slime-repl-mode-map)
-
-(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)
-  (loop for (key command) in slime-editing-keys
-        do (define-key slime-repl-mode-map key command)))
+(defvar slime-repl-mode-map
+  (let ((map (make-sparse-keymap)))
+    (set-keymap-parent map lisp-mode-map)
+    map))
 
 (slime-define-keys slime-prefix-map
   ("\C-z" 'slime-switch-to-output-buffer)
@@ -493,6 +489,7 @@
        'slime-repl-mode-beginning-of-defun)
   (set (make-local-variable 'end-of-defun-function) 
        'slime-repl-mode-end-of-defun)
+  (slime-editing-mode 1)
   (slime-run-mode-hooks 'slime-repl-mode-hook))
 
 (defun slime-repl-buffer (&optional create connection)