org.el: Fix bug when gathering tag completion options.

* org.el (org-fast-tag-selection): Fix bug when gathering tag
completion options.

TINYCHANGE

Thanks to Noorul Islam K M for the patch.
This commit is contained in:
Bastien Guerry 2012-04-03 14:07:26 +02:00
parent c55604074d
commit e48d67ed6d
1 changed files with 4 additions and 1 deletions

View File

@ -13729,7 +13729,10 @@ Returns the new tags string, or nil to not change the current settings."
(append (or buffer-tags
(with-current-buffer buf
(mapcar 'car (org-get-buffer-tags))))
(mapcar 'car table)))))
(delq nil
(mapcar (lambda (x)
(if (stringp
(car x)) x)) table))))))
(quit (setq tg "")))
(when (string-match "\\S-" tg)
(add-to-list 'buffer-tags (list tg))