diff lisp/progmodes/compile.el @ 102072:1867fcb8720e

(compilation-filter): Call `comint-carriage-motion', just like `comint-output-filter'.

--- a/lisp/progmodes/compile.el	Tue Feb 17 14:58:15 2009 +0000
+++ b/lisp/progmodes/compile.el	Tue Feb 17 16:49:40 2009 +0000
@@ -1726,7 +1726,9 @@
 
 (defun compilation-filter (proc string)
   "Process filter for compilation buffers.
-Just inserts the text, and runs `compilation-filter-hook'."
+Just inserts the text,
+handles carriage motion (see `comint-inhibit-carriage-motion'),
+and runs `compilation-filter-hook'."
   (when (buffer-live-p (process-buffer proc))
     (with-current-buffer (process-buffer proc)
       (let ((inhibit-read-only t)
@@ -1739,6 +1741,8 @@
               ;; point at `process-mark' scroll along with the output, but we
               ;; now use window-point-insertion-type instead.
               (insert string)
+              (unless comint-inhibit-carriage-motion
+                (comint-carriage-motion (process-mark proc) (point)))
               (set-marker (process-mark proc) (point))
               (run-hooks 'compilation-filter-hook))
           (goto-char pos))))))