From dca5af369c698961a36a32dc78eaa15e14ea808e Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 31 Mar 2012 11:02:52 +0200 Subject: [PATCH] org.el (org-fast-tag-selection): Fix an bug when listing tags for completion. * org.el (org-fast-tag-selection): Fix an bug when listing tags for completion. Thanks to Mike McLean for reporting this. --- lisp/org.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 653b1a655..63ab7185f 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13695,10 +13695,11 @@ Returns the new tags string, or nil to not change the current settings." (condition-case nil (setq tg (org-icompleting-read "Tag: " - (append (or buffer-tags - (with-current-buffer buf - (org-get-buffer-tags))) - (mapcar 'car table)))) + (delete-dups + (append (or buffer-tags + (with-current-buffer buf + (mapcar 'car (org-get-buffer-tags)))) + (mapcar 'car table))))) (quit (setq tg ""))) (when (string-match "\\S-" tg) (add-to-list 'buffer-tags (list tg)) -- 2.11.4.GIT