summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-02-17 08:10:14 (GMT)
committer Bastien Guerry <bzg@altern.org>2013-02-17 08:10:40 (GMT)
commit45442fbfb765239cbf79baf88e418c4746cbddd4 (patch)
treedf3c62679d1f065ba0c1af6af348ca3d2ce1f660
parentf849239d73fbcc8054e073748d2bed8e51cbead2 (diff)
downloadorg-mode-45442fbfb765239cbf79baf88e418c4746cbddd4.zip
org-mode-45442fbfb765239cbf79baf88e418c4746cbddd4.tar.gz
ox.el: Use integers for control chars
* ox.el (org-export--dispatch-ui) (org-export--dispatch-action): Use integers for control chars.
-rw-r--r--lisp/ox.el17
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/ox.el b/lisp/ox.el
index 3874c8f..316bae1 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -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))