emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 4e063bf 10/16: * Rename comp-async-all-done-hook → native-comp-a


From: Andrea Corallo
Subject: master 4e063bf 10/16: * Rename comp-async-all-done-hook → native-comp-async-all-done-hook
Date: Thu, 6 May 2021 11:16:24 -0400 (EDT)

branch: master
commit 4e063bf8eb47cb87891a71021be636a33492f706
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * 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.
---
 lisp/emacs-lisp/comp.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 93541fa..9756d1f 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))



reply via email to

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