[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv26227/contrib

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime-repl.el (slime-repl-clear-buffer): Don't change cursor
position if is already at the prompt.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/09/15 22:30:13	1.245
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/09/17 14:56:22	1.246
@@ -1,3 +1,8 @@
+2009-09-17  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-repl.el (slime-repl-clear-buffer): Don't change cursor
+	position if is already at the prompt.
+
 2009-09-16  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-references.el: Largely refactored: decoupled code from
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/09/04 13:00:42	1.24
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/09/17 14:56:22	1.25
@@ -819,7 +819,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)
+    (when (< (point) slime-repl-input-start-mark)
+      (goto-char slime-repl-input-start-mark))
     (recenter t))
   (run-hooks 'slime-repl-clear-buffer-hook))