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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1da764d9ce9945891b890151202d868778f47bbb..8ee59c0b040daf8c48a0514c484a2ffbd3b760a9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-17  Sam Steingold  <sds@gnu.org>
+
+       * progmodes/compile.el (compilation-filter): Call
+       `comint-carriage-motion', just like `comint-output-filter'.
+
 2009-02-17  Juanma Barranquero  <lekktu@gmail.com>
 
        * net/newst-treeview.el (newsticker--treeview-load): Remove bogus `if'.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 2554730af057dbc4d776de5a5cd7a38edfb5e275..47b21286c97f086c80190bc1738978901209c738 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1726,7 +1726,9 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
 
 (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 @@ Just inserts the text, and runs `compilation-filter-hook'."
               ;; 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))))))