[elpa] externals/embark 59f9a19a5f 3/3: Merge pull request #615 from mpereira/master

[ELPA Syncer]

branch: externals/embark
commit 59f9a19a5f3081216bf5f0ba546ab170c2ff419f
Merge: 2a89517044 0c06b0058f
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #615 from mpereira/master
    
    Make `embark-export` abide to `display-buffer-alist`
---
 embark.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/embark.el b/embark.el
index 7eaf736b5c..c08fd9a4de 100644
--- a/embark.el
+++ b/embark.el
@@ -3120,17 +3120,17 @@ buffer."
                         (alist-get t embark-exporters-alist))))
       (if (eq exporter 'embark-collect)
           (embark-collect)
-        (let ((after embark-after-export-hook)
-              (cmd embark--command)
-              (name (embark--descriptive-buffer-name 'export))
-              (rerun (embark--rerun-function #'embark-export))
-              (buffer (save-excursion
-                        (funcall exporter candidates)
-                        (current-buffer))))
+        (let* ((after embark-after-export-hook)
+               (cmd embark--command)
+               (name (embark--descriptive-buffer-name 'export))
+               (rerun (embark--rerun-function #'embark-export))
+               (buffer (save-excursion
+                         (funcall exporter candidates)
+                         (rename-buffer name t)
+                         (current-buffer))))
           (embark--quit-and-run
            (lambda ()
              (pop-to-buffer buffer)
-             (rename-buffer name t)
              (setq embark--rerun-function rerun)
              (use-local-map
               (make-composed-keymap