branch: externals/embark
commit 16d15639c57b6450286245798337c65a74dbcf49
Author: Omar Antolín <omar.anto...@gmail.com>
Commit: Omar Antolín <omar.anto...@gmail.com>
Call exporter before quitting minibuffer
We discussed this over at minad/consult#557
---
embark.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/embark.el b/embark.el
index 4cc4f55222..d17a231c6e 100644
--- a/embark.el
+++ b/embark.el
@@ -2999,10 +2999,13 @@ the minibuffer contents, and, if you wish, you can rerun
(let ((after embark-after-export-hook)
(cmd embark--command)
(name (embark--descriptive-buffer-name 'export))
- (revert (embark--revert-function #'embark-export)))
+ (revert (embark--revert-function #'embark-export))
+ (buffer (save-excursion
+ (funcall exporter candidates)
+ (current-buffer))))
(embark--quit-and-run
(lambda ()
- (funcall exporter candidates)
+ (pop-to-buffer buffer)
(rename-buffer name t)
(setq-local revert-buffer-function revert)
(let ((embark-after-export-hook after)
