[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv8691

Modified Files:
	slime.el 
Log Message:
(slime-write-string): When writing a :repl-result,
update the slime-output-end marker for the purpose of asynchronous
output (when *use-dedicated-output-stream* is true). 
Reported by Madhu <enometh at meer.net>.


--- /project/slime/cvsroot/slime/slime.el	2007/02/03 13:33:54	1.758
+++ /project/slime/cvsroot/slime/slime.el	2007/02/04 19:12:48	1.759
@@ -3020,11 +3020,15 @@
     (:repl-result                       
      (with-current-buffer (slime-output-buffer)
        (goto-char (point-max))
-       ;;(unless (bolp) (insert "\n"))
-       (if id             
-           (slime-insert-presentation string id)
-         (slime-propertize-region `(face slime-repl-result-face)
-           (insert string)))))))
+       (let ((result-start (point)))
+         (if id             
+             (slime-insert-presentation string id)
+           (slime-propertize-region `(face slime-repl-result-face)
+             (insert string)))
+         (if (>= (marker-position slime-output-end) (point))
+             ;; If the output-end marker was moved by our insertion,
+             ;; set it back to the beginning of the REPL result.
+             (set-marker slime-output-end result-start)))))))
 
 (defun slime-switch-to-output-buffer (&optional connection)
   "Select the output buffer, preferably in a different window."