[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv29894

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* slime-repl.el (slime-repl-clear-output): Fix clearing output
when there's something entered after the prompt.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/10/05 14:17:59	1.498
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/10/07 12:50:20	1.499
@@ -1,3 +1,8 @@
+2011-10-07  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-repl.el (slime-repl-clear-output): Fix clearing output
+	when there's something entered after the prompt.
+
 2011-10-05  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-autodoc.el (slime-autodoc): Don't cache variable values.
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/10/05 11:58:00	1.56
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/10/07 12:50:20	1.57
@@ -885,11 +885,13 @@
 (defun slime-repl-clear-output ()
   "Delete the output inserted since the last input."
   (interactive)
-  (let ((start (save-excursion 
-                 (slime-repl-previous-prompt)
-                 (ignore-errors (forward-sexp))
-                 (forward-line)
-                 (point)))
+  (let ((start (save-excursion
+                (when (>= (point) slime-repl-input-start-mark)
+                  (goto-char slime-repl-input-start-mark))
+                (slime-repl-previous-prompt)
+                (ignore-errors (forward-sexp))
+                (forward-line)
+                (point)))
         (end (1- (slime-repl-input-line-beginning-position))))
     (when (< start end)
       (let ((inhibit-read-only t))