diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index ddd64dae9..6f5fd39f9 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -4530,13 +4530,18 @@ back to standard interface." expert-prompt allowed-keys backends options first-key expertp) (save-window-excursion (delete-other-windows) - (with-current-buffer (get-buffer-create "*Org Export/Publishing Help*") - (erase-buffer) - (save-excursion (insert help))) - (org-fit-window-to-buffer - (display-buffer "*Org Export/Publishing Help*")) - (org-export-dispatch-action - standard-prompt allowed-keys backends options first-key expertp))))) + (unwind-protect + (progn + (with-current-buffer + (get-buffer-create "*Org Export Dispatcher*") + (erase-buffer) + (save-excursion (insert help))) + (org-fit-window-to-buffer + (display-buffer "*Org Export Dispatcher*")) + (org-export-dispatch-action + standard-prompt allowed-keys backends options first-key expertp)) + (and (get-buffer "*Org Export Dispatcher*") + (kill-buffer "*Org Export Dispatcher*"))))))) (defun org-export-dispatch-action (prompt allowed-keys backends options first-key expertp)