[Emacs-diffs] /srv/bzr/emacs/trunk r104175: Call compilation-filter-hook in the no-async case too.

[Chong Yidong]

------------------------------------------------------------
revno: 104175
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-09 15:42:45 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/progmodes/compile.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-09 17:50:47 +0000
+++ b/lisp/ChangeLog    2011-05-09 19:42:45 +0000
@@ -1,3 +1,9 @@
+2011-05-09  Chong Yidong  <address@hidden>
+
+       * progmodes/compile.el (compilation-start): Run
+       compilation-filter-hook for the async case too.
+       (compilation-filter-hook): Doc fix.
+
 2011-05-09  Deniz Dogan  <address@hidden>
 
        * wdired.el: Remove outdated installation comment.  Fix usage

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2011-05-09 01:24:00 +0000
+++ b/lisp/progmodes/compile.el 2011-05-09 19:42:45 +0000
@@ -68,7 +68,10 @@
   "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 @@
            ;; 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