Browse Source

ox.el: Use integers for control chars

* ox.el (org-export--dispatch-ui)
(org-export--dispatch-action): Use integers for control chars.
Bastien Guerry 4 years ago
parent
commit
45442fbfb7
1 changed files with 9 additions and 8 deletions
  1. 9 8
      lisp/ox.el

+ 9 - 8
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))