[slime-cvs] CVS /slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-return): Only send repl input if point is past a complete
form.


--- /project/slime/cvsroot//slime/slime.el	2006/05/14 09:01:16	1.619
+++ /project/slime/cvsroot//slime/slime.el	2006/05/14 13:24:48	1.620
@@ -3541,8 +3541,8 @@
                    (< (point) slime-repl-input-start-mark))
          (slime-repl-grab-old-output end-of-input)
          (slime-repl-recenter-if-needed))
-        ((slime-input-complete-p slime-repl-input-start-mark 
-                                 slime-repl-input-end-mark)
+        ((slime-input-complete-p slime-repl-input-start-mark
+                                 (min (point) slime-repl-input-end-mark))
          (slime-repl-send-input t))
         (t 
          (slime-repl-newline-and-indent)