[slime-cvs] CVS /slime

[mbaringer]

Update of /project/slime/cvsroot//slime
In directory clnet:/tmp/cvs-serv31756

Modified Files:
	slime.el 
Log Message:


--- /project/slime/cvsroot//slime/slime.el	2006/05/16 18:05:23	1.621
+++ /project/slime/cvsroot//slime/slime.el	2006/05/16 18:10:32	1.622
@@ -427,11 +427,11 @@
 otherwise a newline is inserted. The current value of (point) has
 no effect.
 
-:send-if-after-complete - If the current expression is complete
+:send-only-if-after-complete - If the current expression is complete
 and point is after the expression it is sent, otherwise a newline
 is inserted."
   :type '(choice (const :send-if-complete)
-                 (const :send-if-after-complete))
+                 (const :send-only-if-after-complete))
   :group 'slime-repl)
   
 
@@ -3562,8 +3562,8 @@
          (slime-repl-grab-old-output end-of-input)
          (slime-repl-recenter-if-needed))
         ((slime-input-complete-p slime-repl-input-start-mark
-                                 (case slime-repl-return-behaviour
-                                   (:send-if-after-complete (min (point) slime-repl-input-end-mark))
+                                 (ecase slime-repl-return-behaviour
+                                   (:send-only-if-after-complete (min (point) slime-repl-input-end-mark))
                                    (:send-if-complete slime-repl-input-end-mark)))
          (slime-repl-send-input t))
         (t