[slime-cvs] CVS slime
heller
heller at common-lisp.net
Mon Aug 4 09:10:49 UTC 2008
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))
More information about the slime-cvs
mailing list