tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org.el: Include tags from `org-tag-alist' when completing with the TAB key.

Browse source 
* org.el (org-fast-tag-selection): Include tags from
`org-tag-alist' when completing with the TAB key.

Thanks to Mike McLean for reporting this problem.
This commit is contained in:
Bastien Guerry 2012-03-27 12:09:02 +02:00
parent f2598e41ac
commit 647396464d
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org.el
View file

@ -13691,9 +13691,10 @@ Returns the new tags string, or nil to not change the current settings."
(condition-case nil
(setq tg (org-icompleting-read
"Tag: "
(or buffer-tags
(with-current-buffer buf
(org-get-buffer-tags)))))
(append (or buffer-tags
(with-current-buffer buf
(org-get-buffer-tags)))
(mapcar 'car table))))
(quit (setq tg "")))
(when (string-match "\\S-" tg)
(add-to-list 'buffer-tags (list tg))