Remove duplicate candidates when setting tags
* lisp/org.el (org-set-tags): Remove duplicate candidates from menu.
This commit is contained in:
parent
e0acd8a15a
commit
77b4fad528
15
lisp/org.el
15
lisp/org.el
|
@ -15025,13 +15025,14 @@ When JUST-ALIGN is non-nil, only align tags."
|
||||||
(let* ((table
|
(let* ((table
|
||||||
(setq
|
(setq
|
||||||
org-last-tags-completion-table
|
org-last-tags-completion-table
|
||||||
(append
|
(delete-dups
|
||||||
org-tag-persistent-alist
|
(append
|
||||||
(or org-tag-alist (org-get-buffer-tags))
|
org-tag-persistent-alist
|
||||||
(and
|
(or org-tag-alist (org-get-buffer-tags))
|
||||||
org-complete-tags-always-offer-all-agenda-tags
|
(and
|
||||||
(org-global-tags-completion-table
|
org-complete-tags-always-offer-all-agenda-tags
|
||||||
(org-agenda-files))))))
|
(org-global-tags-completion-table
|
||||||
|
(org-agenda-files)))))))
|
||||||
(current-tags (org-split-string current ":"))
|
(current-tags (org-split-string current ":"))
|
||||||
(inherited-tags
|
(inherited-tags
|
||||||
(nreverse (nthcdr (length current-tags)
|
(nreverse (nthcdr (length current-tags)
|
||||||
|
|
Loading…
Reference in New Issue