diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-03-31 11:02:52 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-03-31 11:02:52 +0200 |
| commit | dca5af369c698961a36a32dc78eaa15e14ea808e (patch) | |
| tree | 69d35c2cb5876c3ad748747b1ff23f53d0526ba2 | |
| parent | bc5b93c6fefbf8512854a339b9b720641291e5b5 (diff) | |
| download | org-mode-dca5af369c698961a36a32dc78eaa15e14ea808e.tar.gz | |
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.
| -rw-r--r-- | lisp/org.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index 653b1a6..63ab718 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)) |