Skip to content

Commit e1541b5

Browse files
committed
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.
1 parent bd5aebc commit e1541b5

File tree

1 file changed

+5
-6
lines changed

1 file changed

+5
-6
lines changed

lisp/emacs-lisp/comp.el

Lines changed: 5 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -115,11 +115,10 @@ or one if there's just one execution unit."
115115
:risky t
116116
:version "28.1")
117117

118-
;; FIXME: This an abnormal hook, and should be renamed to something
119-
;; like `comp-async-cu-done-function'.
120-
(defcustom comp-async-cu-done-hook nil
121-
"Hook run after asynchronously compiling a single compilation unit.
122-
Called with one argument FILE, the filename used as input to compilation."
118+
(defcustom comp-async-cu-done-functions nil
119+
"List of functions to call after asynchronously compiling one compilation unit.
120+
Called with one argument FILE, the filename used as input to
121+
compilation."
123122
:type 'hook
124123
:version "28.1")
125124

@@ -3940,7 +3939,7 @@ display a message."
39403939
:sentinel
39413940
(lambda (process _event)
39423941
(run-hook-with-args
3943-
'comp-async-cu-done-hook
3942+
'comp-async-cu-done-functions
39443943
source-file)
39453944
(comp-accept-and-process-async-output process)
39463945
(ignore-errors (delete-file temp-file))

0 commit comments

Comments
 (0)