Kyle Meyer преди 4 години
родител
ревизия
3cbbbd784f
променени са 1 файла, в които са добавени 4 реда и са изтрити 2 реда
  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*"
       (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))))