diff options
author | Bastien Guerry <bzg@altern.org> | 2013-02-17 09:10:14 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-17 09:10:40 +0100 |
commit | 45442fbfb765239cbf79baf88e418c4746cbddd4 (patch) | |
tree | df3c62679d1f065ba0c1af6af348ca3d2ce1f660 | |
parent | f849239d73fbcc8054e073748d2bed8e51cbead2 (diff) | |
download | 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.el | 17 |
1 files changed, 9 insertions, 8 deletions
@@ -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)) |