forked from mirrors/org-mode
org-export: Fix commit 468d860528
* contrib/lisp/org-export.el (org-export-dispatch-ui): Ensure fitting happens once contents have been inserted in the displayed buffer.
This commit is contained in:
parent
9751dc4561
commit
6e73c22d15
|
@ -4591,13 +4591,13 @@ back to standard interface."
|
||||||
(delete-other-windows)
|
(delete-other-windows)
|
||||||
(org-switch-to-buffer-other-window
|
(org-switch-to-buffer-other-window
|
||||||
(get-buffer-create "*Org Export Dispatcher*"))
|
(get-buffer-create "*Org Export Dispatcher*"))
|
||||||
(org-fit-window-to-buffer)
|
|
||||||
(setq cursor-type nil))
|
(setq cursor-type nil))
|
||||||
;; At this point, the buffer containing the menu exists and is
|
;; At this point, the buffer containing the menu exists and is
|
||||||
;; visible in the current window. So, refresh it.
|
;; visible in the current window. So, refresh it.
|
||||||
(with-current-buffer "*Org Export Dispatcher*"
|
(with-current-buffer "*Org Export Dispatcher*"
|
||||||
(erase-buffer)
|
(erase-buffer)
|
||||||
(insert help))
|
(insert help))
|
||||||
|
(org-fit-window-to-buffer)
|
||||||
(org-export-dispatch-action
|
(org-export-dispatch-action
|
||||||
standard-prompt allowed-keys backends options first-key expertp))))
|
standard-prompt allowed-keys backends options first-key expertp))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue