diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-11-22 15:32:01 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-11-22 22:32:48 +0100 |
commit | 68234d5a410c01ad9457f746bbd1f3d7fdfb0245 (patch) | |
tree | 1b38f82e78229fd9ce4d45e09571b15ea3633328 | |
parent | 785e470c6c4415602d7b21adaeaf32fd64c59db7 (diff) | |
download | 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.el | 4 |
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)) |