From 45442fbfb765239cbf79baf88e418c4746cbddd4 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 17 Feb 2013 09:10:14 +0100 Subject: [PATCH] ox.el: Use integers for control chars * ox.el (org-export--dispatch-ui) (org-export--dispatch-action): Use integers for control chars. --- lisp/ox.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/ox.el b/lisp/ox.el index 3874c8f6d..316bae15d 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))