[elpa] externals/embark 16d15639c5: Call exporter before quitting minibuffer

[ELPA Syncer]

branch: externals/embark
commit 16d15639c57b6450286245798337c65a74dbcf49
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@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)