tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix 2508dfa6

This commit is contained in:
Bastien 2020-02-12 11:54:49 +01:00
parent ea47d9ebb4
commit bfe2f919fa
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ox.el
View File

@ -6865,7 +6865,7 @@ back to standard interface."
(org-switch-to-buffer-other-window (org-switch-to-buffer-other-window
(get-buffer-create "*Org Export Dispatcher*")) (get-buffer-create "*Org Export Dispatcher*"))
(setq cursor-type nil (setq cursor-type nil
header-line-format "Use C-v, M-v, C-n or C-p to navigate.") header-line-format "Use SPC, DEL, C-n or C-p to navigate.")
;; Make sure that invisible cursor will not highlight square ;; Make sure that invisible cursor will not highlight square
;; brackets. ;; brackets.
(set-syntax-table (copy-syntax-table)) (set-syntax-table (copy-syntax-table))
@ -6901,7 +6901,9 @@ options as CDR."
;; C-p, SPC, DEL). ;; C-p, SPC, DEL).
(while (and (setq key (read-char-exclusive prompt)) (while (and (setq key (read-char-exclusive prompt))
(not expertp) (not expertp)
(memq key '(14 16 ?\s ?\d))) ;; FIXME: Don't use C-v (22) here, as it is used as a
;; modifier key in the export dispatch.
(memq key '(14 16 ?\s ?\d 134217846)))
(org-scroll key t)) (org-scroll key t))
(cond (cond
;; Ignore undefined associations. ;; Ignore undefined associations.