summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-11-22 14:32:01 (GMT)
committer Nicolas Goaziou <n.goaziou@gmail.com>2012-11-22 21:32:48 (GMT)
commit68234d5a410c01ad9457f746bbd1f3d7fdfb0245 (patch)
tree1b38f82e78229fd9ce4d45e09571b15ea3633328
parent785e470c6c4415602d7b21adaeaf32fd64c59db7 (diff)
downloadorg-mode-68234d5a410c01ad9457f746bbd1f3d7fdfb0245.zip
org-mode-68234d5a410c01ad9457f746bbd1f3d7fdfb0245.tar.gz
org-export: uniquify and sort allowed keys in dispatcher expert UI
* contrib/lisp/org-export.el (org-export-dispatch-ui): uniquify and sort allowed keys.
-rw-r--r--contrib/lisp/org-export.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el
index cbe40b7..5195bab 100644
--- a/contrib/lisp/org-export.el
+++ b/contrib/lisp/org-export.el
@@ -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))