From 2017951613f5653f36216e58ebf30796443f8c4a Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 17 Feb 2009 16:49:40 +0000 Subject: [PATCH] (compilation-filter): Call `comint-carriage-motion', just like `comint-output-filter'. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/compile.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1da764d9ce9..8ee59c0b040 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-02-17 Sam Steingold + + * progmodes/compile.el (compilation-filter): Call + `comint-carriage-motion', just like `comint-output-filter'. + 2009-02-17 Juanma Barranquero * net/newst-treeview.el (newsticker--treeview-load): Remove bogus `if'. diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 2554730af05..47b21286c97 100644 --- 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)))))) -- 2.39.2