From 9bedd73a50921360823210bcc791d1ba1861be70 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 9 May 2011 15:42:45 -0400 Subject: [PATCH] Call compilation-filter-hook in the no-async case too. * progmodes/compile.el (compilation-start): Run compilation-filter-hook for the async case too. (compilation-filter-hook): Doc fix. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/compile.el | 7 ++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 76ad76e0acd..304c1792b92 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-05-09 Chong Yidong + + * progmodes/compile.el (compilation-start): Run + compilation-filter-hook for the async case too. + (compilation-filter-hook): Doc fix. + 2011-05-09 Deniz Dogan * wdired.el: Remove outdated installation comment. Fix usage diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 60ad7cb0e9e..b8cac2fd331 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -68,7 +68,10 @@ the compilation to be killed, you can use this hook: "Hook run after `compilation-filter' has inserted a string into the buffer. It is called with the variable `compilation-filter-start' bound to the position of the start of the inserted text, and point at -its end.") +its end. + +If Emacs lacks asynchronous process support, this hook is run +after `call-process' inserts the grep output into the buffer.") (defvar compilation-filter-start nil "Start of the text inserted by `compilation-filter'. @@ -1629,8 +1632,10 @@ Returns the compilation buffer created." ;; regardless of where the user sees point. (goto-char (point-max)) (let* ((inhibit-read-only t) ; call-process needs to modify outbuf + (compilation-filter-start (point)) (status (call-process shell-file-name nil outbuf nil "-c" command))) + (run-hooks 'compilation-filter-hook) (cond ((numberp status) (compilation-handle-exit 'exit status -- 2.39.5