Browse Source

Merge branch 'maint'

Kyle Meyer 4 years ago
parent
commit
3cbbbd784f
1 changed files with 4 additions and 2 deletions
  1. 4 2
      lisp/ox.el

+ 4 - 2
lisp/ox.el

@@ -6836,10 +6836,12 @@ back to standard interface."
       (with-current-buffer "*Org Export Dispatcher*"
 	;; Refresh help.  Maintain display continuity by re-visiting
 	;; previous window position.
-	(let ((pos (window-start)))
+	(let ((pt (point))
+	      (wstart (window-start)))
 	  (erase-buffer)
 	  (insert help)
-	  (set-window-start nil pos)))
+	  (goto-char pt)
+	  (set-window-start nil wstart)))
       (org-fit-window-to-buffer)
       (org-export--dispatch-action
        standard-prompt allowed-keys entries options first-key expertp))))