--- tex-buf.el	17 Mar 2005 19:00:26 +0100	1.222
+++ tex-buf.el	16 Apr 2005 17:50:17 +0200	
@@ -997,7 +1002,8 @@
     (save-excursion
       (goto-char (process-mark process))
       (insert-before-markers string)
-      (set-marker (process-mark process) (point)))))
+      (set-marker (process-mark process) (point)))
+    (goto-char (process-mark process))))
 
 (defvar TeX-current-page nil
   "The page number currently being formatted, enclosed in brackets.")
@@ -1040,7 +1046,8 @@
 		(setq TeX-current-page str
 		      pt nil)
 		(TeX-format-mode-line process))))
-	(when old-match (set-match-data (car old-match)))))))
+	(when old-match (set-match-data (car old-match)))))
+    (goto-char (process-mark process))))
 
 (defvar TeX-parse-function nil
   "Function to call to parse content of TeX output buffer.")