[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
*** empty log message ***

--- /project/slime/cvsroot/slime/slime.el	2008/08/03 18:23:10	1.955
+++ /project/slime/cvsroot/slime/slime.el	2008/08/04 09:10:38	1.956
@@ -3171,7 +3171,8 @@
   (interactive)
   (set-marker slime-repl-last-input-start-mark nil)
   (let ((inhibit-read-only t))
-    (delete-region (point-min) (slime-repl-input-line-beginning-position))
+    (delete-region (point-min) slime-repl-prompt-start-mark)
+    (delete-region slime-output-start slime-output-end)
     (goto-char slime-repl-input-start-mark))
   (run-hooks 'slime-repl-clear-buffer-hook))