(compilation-filter): Fix up last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 390f9025daa3a2dbce0ee728aa076ba21f7edac5..826675914dd4a51d2151652e76723cfd041f9d5c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-06-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * progmodes/compile.el (compilation-filter): Fix up last change.
+
        * term/linux.el (terminal-init-linux): Use gpm-mouse-enable.
 
        * t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 0c8bb8473be41499952464d5e709e0ba2a3fe4c5..07e5600d3730ee8f4581531f0e6a2b70bd0a1a43 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1675,6 +1675,7 @@ 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)
+            (set-marker (process-mark proc) (point))
            (run-hooks 'compilation-filter-hook))))))
 
 ;;; test if a buffer is a compilation buffer, assuming we're in the buffer