[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104175: Call compilation-filter-hook
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104175: Call compilation-filter-hook in the no-async case too. |
Date: |
Mon, 09 May 2011 15:42:45 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104175: Call compilation-filter-hook in the no-async case too.,
Chong Yidong <=