[slime-cvs] CVS slime
heller
heller at common-lisp.net
Thu Sep 18 22:35:34 UTC 2008
Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv2717
Modified Files:
slime.el
Log Message:
(slime-eval-with-transcript-cont): Save the position of the
input-start-mark not the marker itself.
--- /project/slime/cvsroot/slime/slime.el 2008/09/18 15:23:43 1.1027
+++ /project/slime/cvsroot/slime/slime.el 2008/09/18 22:35:31 1.1028
@@ -5452,7 +5452,7 @@
(setq slime-repl-popup-on-output nil)))
(with-current-buffer (slime-output-buffer)
(save-excursion
- (let ((output-start slime-repl-input-start-mark))
+ (let ((output-start (marker-position slime-repl-input-start-mark)))
(slime-repl-insert-prompt)
(slime-mark-output-start output-start)))
(slime-repl-show-maximum-output)
@@ -9323,6 +9323,10 @@
("(progn (princ 10) (finish-output) (abort))" "SWANK>
;;;; (progn (princ 10) (finish-output) (abort)) ...
10
+SWANK> *" t)
+ ("(progn (princ 10) (abort))" "SWANK>
+;;;; (progn (princ 10) (abort)) ...
+10
SWANK> *" t))
(with-current-buffer (slime-output-buffer)
(setf (slime-lisp-package-prompt-string) "SWANK"))
More information about the slime-cvs
mailing list