[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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/async 67613344e1: New hook async-pkg-install-after-hook,
ELPA Syncer <=