[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-clear-buffer): Recenter at the end.

--- /project/slime/cvsroot/slime/slime.el	2008/08/04 20:25:15	1.958
+++ /project/slime/cvsroot/slime/slime.el	2008/08/04 20:25:45	1.959
@@ -3147,7 +3147,8 @@
   (let ((inhibit-read-only t))
     (delete-region (point-min) slime-repl-prompt-start-mark)
     (delete-region slime-output-start slime-output-end)
-    (goto-char slime-repl-input-start-mark))
+    (goto-char slime-repl-input-start-mark)
+    (recenter))
   (run-hooks 'slime-repl-clear-buffer-hook))
 
 (defun slime-repl-clear-output ()