From 4e063bf8eb47cb87891a71021be636a33492f706 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 6 May 2021 14:52:43 +0200 Subject: [PATCH] =?utf8?q?*=20Rename=20comp-async-all-done-hook=20?= =?utf8?q?=E2=86=92=20native-comp-async-all-done-hook?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * 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 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)) -- 2.39.5