branch: externals/embark
commit 9a44418c349e41020cdc5ad1bd21e8c77a429062
Author: Omar Antolín Camarena <[email protected]>
Commit: Omar Antolín Camarena <[email protected]>
Support embark--restart for multitarget actions
---
embark.el | 19 +++++++++----------
1 file changed, 9 insertions(+), 10 deletions(-)
diff --git a/embark.el b/embark.el
index 5230500a60..1ca4bd54ec 100644
--- a/embark.el
+++ b/embark.el
@@ -2400,16 +2400,15 @@ ARG is the prefix argument."
(alist-get action
embark-pre-action-hooks))))
(y-or-n-p (format "Run %s on %d %ss? "
action (length candidates) type)))
- (if (memq action embark-multitarget-actions)
- (let ((prefix-arg prefix))
- (embark--act action transformed quit))
- (save-excursion
- (if quit
- (embark--quit-and-run #'mapc act candidates)
- (mapc act candidates)
- (when (memq 'embark--restart
- (alist-get action embark-post-action-hooks))
- (embark--restart)))))))
+ (if quit
+ (embark--quit-and-run #'mapc act candidates)
+ (if (memq action embark-multitarget-actions)
+ (let ((prefix-arg prefix))
+ (embark--act action transformed quit))
+ (save-excursion (mapc act candidates)))
+ (when (memq 'embark--restart
+ (alist-get action embark-post-action-hooks))
+ (embark--restart)))))
(dolist (cand candidates)
(when-let ((bounds (plist-get cand :bounds)))
(set-marker (car bounds) nil) ; yay, manual memory management!
