procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Sam Steingold 2009-02-17 16:49:40 +00:00
parent 1227224193
commit 2017951613
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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'.

6
lisp/progmodes/compile.el
View file

@ -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))))))