emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/async 67613344e1: New hook async-pkg-install-after-hook


From: ELPA Syncer
Subject: [elpa] externals/async 67613344e1: New hook async-pkg-install-after-hook
Date: Thu, 8 Aug 2024 03:57:34 -0400 (EDT)

branch: externals/async
commit 67613344e153009ac9afb96b455130b7d27ba361
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    New hook async-pkg-install-after-hook
---
 async-package.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/async-package.el b/async-package.el
index b8c29baa7e..31be22abaf 100644
--- a/async-package.el
+++ b/async-package.el
@@ -43,6 +43,10 @@
   (unless async-package--modeline-mode
     (let ((visible-bell t)) (ding))))
 
+(defvar async-pkg-install-after-hook nil
+  "Hook that run after package installation.
+The hook runs in the call-back once installation is done in child emacs.")
+
 (defface async-package-message
     '((t (:foreground "yellow")))
   "Face used for mode-line message.")
@@ -123,7 +127,8 @@ Argument ERROR-FILE is the file where errors are logged, if 
some."
                       (insert-file-contents async-byte-compile-log-file)
                       (compilation-mode))
                     (display-buffer buf)
-                    (delete-file async-byte-compile-log-file)))))))))
+                    (delete-file async-byte-compile-log-file)))))))
+        (run-hooks 'async-pkg-install-after-hook)))
      'async-pkg-install t)
     (async-package--modeline-mode 1)))
 



reply via email to

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