[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-insert-prompt): Don't go to point-max but to
slime-repl-input-start-mark if there is one.  This fixes user input
type-ahead again (this change from 2007-08-25 got lost).  Testcase:
Type (dotimes (i 5) (format t "Number ~A~%" i) (sleep 1)) and then
type ahead while the command is executing and output arrives.


--- /project/slime/cvsroot/slime/slime.el	2007/08/28 22:03:26	1.835
+++ /project/slime/cvsroot/slime/slime.el	2007/08/28 22:23:40	1.836
@@ -3220,7 +3220,7 @@
 
 (defun slime-repl-insert-prompt ()
   "Goto to point max, and insert the prompt."
-  (goto-char (point-max))
+  (goto-char (if slime-repl-input-start-mark slime-repl-input-start-mark (point-max)))
   (unless (bolp) (insert "\n"))
   (let ((prompt-start (point))
         (prompt (format "%s> " (slime-lisp-package-prompt-string))))