diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-04-19 01:34:27 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-04-19 01:34:27 +0200 |
| commit | 77b4fad528076aeeb3afc18da4872758924a2962 (patch) | |
| tree | ed9de3dcf691676c6c043607a1cfa766810e782a | |
| parent | e0acd8a15a40cb15bd5c5c26c5a345900762c2f1 (diff) | |
| download | org-mode-77b4fad528076aeeb3afc18da4872758924a2962.tar.gz | |
Remove duplicate candidates when setting tags
* lisp/org.el (org-set-tags): Remove duplicate candidates from menu.
| -rw-r--r-- | lisp/org.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/org.el b/lisp/org.el index 7129cc5..1ad05b1 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15025,13 +15025,14 @@ When JUST-ALIGN is non-nil, only align tags." (let* ((table (setq org-last-tags-completion-table - (append - org-tag-persistent-alist - (or org-tag-alist (org-get-buffer-tags)) - (and - org-complete-tags-always-offer-all-agenda-tags - (org-global-tags-completion-table - (org-agenda-files)))))) + (delete-dups + (append + org-tag-persistent-alist + (or org-tag-alist (org-get-buffer-tags)) + (and + org-complete-tags-always-offer-all-agenda-tags + (org-global-tags-completion-table + (org-agenda-files))))))) (current-tags (org-split-string current ":")) (inherited-tags (nreverse (nthcdr (length current-tags) |