[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-repl-write-string): Insert a :repl-result before the
prompt, not at point-max.  Update markers properly.


--- /project/slime/cvsroot/slime/slime.el	2007/08/28 22:23:40	1.836
+++ /project/slime/cvsroot/slime/slime.el	2007/08/29 01:08:25	1.837
@@ -2962,15 +2962,14 @@
                         (point))))))
     (:repl-result                       
      (with-current-buffer (slime-output-buffer)
-       (goto-char (point-max))
-       (let ((result-start (point)))
-         (slime-insert-propertized `(face slime-repl-result-face
+       (let ((marker (slime-output-target-marker target)))
+         (goto-char marker)
+         (let ((result-start (point)))
+	   (slime-insert-propertized `(face slime-repl-result-face
                                           rear-nonsticky (face)) 
                                    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)))))
+           ;; Move the input-start marker after the REPL result.
+           (set-marker marker (point))))))
     (t
      (let* ((marker (slime-output-target-marker target))
             (buffer (and marker (marker-buffer marker))))