[elpa] externals/embark 0c06b0058f 1/3: Make `embark-export` abide to `display-buffer-alist`

[ELPA Syncer]

branch: externals/embark
commit 0c06b0058f9a8fafef46c86754661e0032562038
Author: Murilo Pereira <murilo@murilopereira.com>
Commit: Murilo Pereira <murilo@murilopereira.com>

    Make `embark-export` abide to `display-buffer-alist`
    
    This change makes it so that `buffer` is named before it is
    `pop-to-buffer`'d to, so that the rules specified `display-buffer-alist`
    can be matched by the Embark export buffer name patterns.
    
    E.g., the following addition makes Embark export buffers show in a
    side window.
    ```elisp
    (add-to-list 'display-buffer-alist '("\\*Embark Export: .*"
                                         (display-buffer-in-side-window)
    ```
---
 embark.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/embark.el b/embark.el
index 2f08fd7863..e049e02dc5 100644
--- a/embark.el
+++ b/embark.el
@@ -3118,17 +3118,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