[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/embark 0fd65bc111 2/4: Allow pre/post action hooks on "
From: |
ELPA Syncer |
Subject: |
[elpa] externals/embark 0fd65bc111 2/4: Allow pre/post action hooks on "meta" actions |
Date: |
Sun, 17 Apr 2022 20:57:30 -0400 (EDT) |
branch: externals/embark
commit 0fd65bc111c15d1042ada97275000f134e32e9ba
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>
Allow pre/post action hooks on "meta" actions
---
embark.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/embark.el b/embark.el
index 4645a41451..93786c6b53 100644
--- a/embark.el
+++ b/embark.el
@@ -1756,7 +1756,11 @@ minibuffer before executing the action."
embark-live ; target buffer
embark-export
embark-act-all))
- (command-execute action)
+ (progn
+ (embark--run-action-hooks embark-pre-action-hooks action target quit)
+ (unwind-protect (command-execute action)
+ (embark--run-action-hooks embark-post-action-hooks
+ action target quit)))
(let* ((command embark--command)
(prefix prefix-arg)
(action-window (embark--target-window t))