From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 6 May 2021 12:52:43 +0000 (+0200)
Subject: * Rename comp-async-all-done-hook → native-comp-async-all-done-hook
X-Git-Tag: emacs-28.0.90~2573
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e063bf8eb47cb87891a71021be636a33492f706;p=emacs.git

* Rename comp-async-all-done-hook → native-comp-async-all-done-hook

* lisp/emacs-lisp/comp.el (native-comp-async-all-done-hook)
(comp-run-async-workers): Rename comp-async-all-done-hook →
native-comp-async-all-done-hook.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 93541fa6d8f..9756d1f58a0 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -122,7 +122,7 @@ compilation."
   :type 'hook
   :version "28.1")
 
-(defcustom comp-async-all-done-hook nil
+(defcustom native-comp-async-all-done-hook nil
   "Hook run after completing asynchronous compilation of all input files."
   :type 'hook
   :version "28.1")
@@ -3886,7 +3886,7 @@ processes from `comp-async-compilations'"
 
 (defun comp-run-async-workers ()
   "Start compiling files from `comp-files-queue' asynchronously.
-When compilation is finished, run `comp-async-all-done-hook' and
+When compilation is finished, run `native-comp-async-all-done-hook' and
 display a message."
   (if (or comp-files-queue
           (> (comp-async-runnings) 0))
@@ -3958,7 +3958,7 @@ display a message."
          when (>= (comp-async-runnings) (comp-effective-async-max-jobs))
            do (cl-return)))
     ;; No files left to compile and all processes finished.
-    (run-hooks 'comp-async-all-done-hook)
+    (run-hooks 'native-comp-async-all-done-hook)
     (with-current-buffer (get-buffer-create comp-async-buffer-name)
       (save-excursion
         (goto-char (point-max))