emacs-diffs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]