[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