procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename abnormal hook to comp-async-cu-done-functions

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2021-04-27 03:37:43 +02:00
parent bd5aebce03
commit e1541b5cb4
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/comp.el
View file

@ -115,11 +115,10 @@ or one if there's just one execution unit."
:risky t :risky t
:version "28.1") :version "28.1")
;; FIXME: This an abnormal hook, and should be renamed to something (defcustom comp-async-cu-done-functions nil
;; like `comp-async-cu-done-function'. "List of functions to call after asynchronously compiling one compilation unit.
(defcustom comp-async-cu-done-hook nil Called with one argument FILE, the filename used as input to
"Hook run after asynchronously compiling a single compilation unit. compilation."
Called with one argument FILE, the filename used as input to compilation."
:type 'hook :type 'hook
:version "28.1") :version "28.1")
@ -3940,7 +3939,7 @@ display a message."
:sentinel :sentinel
(lambda (process _event) (lambda (process _event)
(run-hook-with-args (run-hook-with-args
'comp-async-cu-done-hook 'comp-async-cu-done-functions
source-file) source-file)
(comp-accept-and-process-async-output process) (comp-accept-and-process-async-output process)
(ignore-errors (delete-file temp-file)) (ignore-errors (delete-file temp-file))