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

ox.el: Use integers for control chars 

* 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 ;; pressed, if any. Some keys (?^B, ?^V, ?^S, ?^F, ?^A
;; and ?q) are always available. ;; and ?q) are always available.
(allowed-keys (allowed-keys
(nconc (list ? ? ? ? ?) (nconc (list 2 22 19 6 1)
(if (not first-key) (org-uniquify (mapcar 'car backends)) (if (not first-key) (org-uniquify (mapcar 'car backends))
(let (sub-menu) (let (sub-menu)
(dolist (backend backends (sort (mapcar 'car sub-menu) '<)) (dolist (backend backends (sort (mapcar 'car sub-menu) '<))
@ -5525,13 +5525,13 @@ 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 '(? ? ?\s ?\d))) (memq key '(14 16 ?\s ?\d)))
(case key (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)) (ignore-errors (scroll-up-line))
(message "End of buffer") (message "End of buffer")
(sit-for 1))) (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)) (ignore-errors (scroll-down-line))
(message "Beginning of buffer") (message "Beginning of buffer")
(sit-for 1))) (sit-for 1)))
@ -5558,11 +5558,12 @@ options as CDR."
((eq key ??) (org-export--dispatch-ui options first-key nil)) ((eq key ??) (org-export--dispatch-ui options first-key nil))
;; Switch to asynchronous export stack. ;; Switch to asynchronous export stack.
((eq key ?&) '(stack)) ((eq key ?&) '(stack))
;; Toggle export options. ;; Toggle export options
((memq key '(? ? ? ? ?)) ;; 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 (org-export--dispatch-ui
(let ((option (case key (? 'body) (? 'visible) (? 'subtree) (let ((option (case key (2 'body) (22 'visible) (19 'subtree)
(? 'force) (? 'async)))) (6 'force) (1 'async))))
(if (memq option options) (remq option options) (if (memq option options) (remq option options)
(cons option options))) (cons option options)))
first-key expertp)) first-key expertp))