[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e1541b5: Rename abnormal hook to comp-async-cu-done-functions
From: |
Stefan Kangas |
Subject: |
master e1541b5: Rename abnormal hook to comp-async-cu-done-functions |
Date: |
Mon, 26 Apr 2021 21:37:55 -0400 (EDT) |
branch: master
commit e1541b5cb425c87e86650873b51f699c43c44fe5
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Rename abnormal hook to comp-async-cu-done-functions
* lisp/emacs-lisp/comp.el (comp-async-cu-done-functions): Rename
from 'comp-async-cu-done-hook' to reflect that it is an abnormal
hook. Doc fix and update single caller.
---
lisp/emacs-lisp/comp.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 1fb07c6..ed1bee1 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -115,11 +115,10 @@ or one if there's just one execution unit."
:risky t
:version "28.1")
-;; FIXME: This an abnormal hook, and should be renamed to something
-;; like `comp-async-cu-done-function'.
-(defcustom comp-async-cu-done-hook nil
- "Hook run after asynchronously compiling a single compilation unit.
-Called with one argument FILE, the filename used as input to compilation."
+(defcustom comp-async-cu-done-functions nil
+ "List of functions to call after asynchronously compiling one compilation
unit.
+Called with one argument FILE, the filename used as input to
+compilation."
:type 'hook
:version "28.1")
@@ -3940,7 +3939,7 @@ display a message."
:sentinel
(lambda (process _event)
(run-hook-with-args
- 'comp-async-cu-done-hook
+ 'comp-async-cu-done-functions
source-file)
(comp-accept-and-process-async-output process)
(ignore-errors (delete-file temp-file))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e1541b5: Rename abnormal hook to comp-async-cu-done-functions,
Stefan Kangas <=