forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
3cbbbd784f
|
@ -6836,10 +6836,12 @@ back to standard interface."
|
||||||
(with-current-buffer "*Org Export Dispatcher*"
|
(with-current-buffer "*Org Export Dispatcher*"
|
||||||
;; Refresh help. Maintain display continuity by re-visiting
|
;; Refresh help. Maintain display continuity by re-visiting
|
||||||
;; previous window position.
|
;; previous window position.
|
||||||
(let ((pos (window-start)))
|
(let ((pt (point))
|
||||||
|
(wstart (window-start)))
|
||||||
(erase-buffer)
|
(erase-buffer)
|
||||||
(insert help)
|
(insert help)
|
||||||
(set-window-start nil pos)))
|
(goto-char pt)
|
||||||
|
(set-window-start nil wstart)))
|
||||||
(org-fit-window-to-buffer)
|
(org-fit-window-to-buffer)
|
||||||
(org-export--dispatch-action
|
(org-export--dispatch-action
|
||||||
standard-prompt allowed-keys entries options first-key expertp))))
|
standard-prompt allowed-keys entries options first-key expertp))))
|
||||||
|
|
Loading…
Reference in New Issue