Commit 20179516 authored by Sam Steingold's avatar Sam Steingold
Browse files

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

parent 12272241
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'.
......
......@@ -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))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment