From e1541b5cb425c87e86650873b51f699c43c44fe5 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 27 Apr 2021 03:37:43 +0200 Subject: [PATCH] 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 1fb07c66adf..ed1bee1d4c9 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)) -- 2.39.5