org-export: uniquify and sort allowed keys in dispatcher expert UI
authorNicolas Goaziou <n.goaziou@gmail.com>
Thu, 22 Nov 2012 14:32:01 +0000 (15:32 +0100)
committerNicolas Goaziou <n.goaziou@gmail.com>
Thu, 22 Nov 2012 21:32:48 +0000 (22:32 +0100)
* contrib/lisp/org-export.el (org-export-dispatch-ui): uniquify and
  sort allowed keys.

contrib/lisp/org-export.el

index cbe40b7..5195bab 100644 (file)
@@ -4857,9 +4857,9 @@ back to standard interface."
         ;; always available.
         (allowed-keys
          (nconc (list ?1 ?2 ?3 ?4)
-                (if (not first-key) (mapcar 'car backends)
+                (if (not first-key) (org-uniquify (mapcar 'car backends))
                   (let (sub-menu)
-                    (dolist (backend backends (mapcar 'car sub-menu))
+                    (dolist (backend backends (sort (mapcar 'car sub-menu) '<))
                       (when (eq (car backend) first-key)
                         (setq sub-menu (append (nth 2 backend) sub-menu))))))
                 (cond ((eq first-key ?P) (list ?f ?p ?x ?a))