Merge pull request #615 from mpereira/master

Make `embark-export` abide to `display-buffer-alist`
oantolin · Mar 23, 2023 · 59f9a19 · 59f9a19
2 parents 2a89517 + 0c06b00
commit 59f9a19
Showing 1 changed file with 8 additions and 8 deletions.
diff --git 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