# HG changeset patch
# User Sam Steingold <sds@gnu.org>
# Date 1234889380 0
# Node ID 1867fcb8720e09a000275990a5afdedad5360a21
# Parent  e25fb73b6868e36e6b408c4bb4bc43e4a4be16f1
(compilation-filter): Call `comint-carriage-motion', just like `comint-output-filter'.

diff -r e25fb73b6868 -r 1867fcb8720e lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Feb 17 14:58:15 2009 +0000
+++ b/lisp/ChangeLog	Tue Feb 17 16:49:40 2009 +0000
@@ -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 -r e25fb73b6868 -r 1867fcb8720e lisp/progmodes/compile.el
--- 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))))))