mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-30 08:08:26 +00:00
Code

ox.el: Use integers for control chars

Browse Source 
* ox.el (org-export--dispatch-ui)
(org-export--dispatch-action): Use integers for control chars.
This commit is contained in:
Bastien Guerry 2013-02-17 09:10:14 +01:00
parent f849239d73
commit 45442fbfb7
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/ox.el
View File

@ -5388,7 +5388,7 @@ back to standard interface."
;; pressed, if any. Some keys (?^B, ?^V, ?^S, ?^F, ?^A
;; and ?q) are always available.
(allowed-keys
(nconc (list ? ? ? ? ?)
(nconc (list 2 22 19 6 1)
(if (not first-key) (org-uniquify (mapcar 'car backends))
(let (sub-menu)
(dolist (backend backends (sort (mapcar 'car sub-menu) '<))
@ -5525,13 +5525,13 @@ options as CDR."
;; C-p, SPC, DEL).
(while (and (setq key (read-char-exclusive prompt))
(not expertp)
(memq key '(? ? ?\s ?\d)))
(memq key '(14 16 ?\s ?\d)))
(case key
(? (if (not (pos-visible-in-window-p (point-max)))
(14 (if (not (pos-visible-in-window-p (point-max)))
(ignore-errors (scroll-up-line))
(message "End of buffer")
(sit-for 1)))
(? (if (not (pos-visible-in-window-p (point-min)))
(16 (if (not (pos-visible-in-window-p (point-min)))
(ignore-errors (scroll-down-line))
(message "Beginning of buffer")
(sit-for 1)))
@ -5558,11 +5558,12 @@ options as CDR."
((eq key ??) (org-export--dispatch-ui options first-key nil))
;; Switch to asynchronous export stack.
((eq key ?&) '(stack))
;; Toggle export options.
((memq key '(? ? ? ? ?))
;; Toggle export options
;; C-b (2) C-v (22) C-s (19) C-f (6) C-a (1)
((memq key '(2 22 19 6 1))
(org-export--dispatch-ui
(let ((option (case key (? 'body) (? 'visible) (? 'subtree)
(? 'force) (? 'async))))
(let ((option (case key (2 'body) (22 'visible) (19 'subtree)
(6 'force) (1 'async))))
(if (memq option options) (remq option options)
(cons option options)))
first-key expertp))