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

[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))



reply via email to

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