ox.el: Use integers for control chars

* ox.el (org-export--dispatch-ui)
(org-export--dispatch-action): Use integers for control chars.

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))