[Orgmode] [PATCH] bugfix in org-agenda-fix-displayed-tags

[Stephan Schmitt]

An error was thrown when all tags of a headline are hidden by
org-agenda-hide-tags-regexp (in this case the function get-text-property
got nil as third argument)
---
 lisp/org-agenda.el |   18 +++++++++---------
 1 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index e8e9e93..771617e 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4762,16 +4762,16 @@ The modified list may contain inherited tags, and tags 
matched by
   (when (or add-inherited hide-re)
     (if (string-match (org-re "\\([ \t]+\\)\\(:[[:alnum:]_@:]+:\\)[ \t]*$") 
txt)
        (setq txt (substring txt 0 (match-beginning 0))))
+    (setq tags
+         (delq nil
+               (mapcar (lambda (tg)
+                         (if (or (and hide-re (string-match hide-re tg))
+                                 (and (not add-inherited)
+                                      (get-text-property 0 'inherited tg)))
+                             nil
+                           tg))
+                       tags)))
     (when tags
-      (setq tags
-           (delq nil
-                 (mapcar (lambda (tg)
-                           (if (or (and hide-re (string-match hide-re tg))
-                                   (and (not add-inherited)
-                                        (get-text-property 0 'inherited tg)))
-                               nil
-                             tg))
-                         tags)))
       (let ((have-i (get-text-property 0 'inherited (car tags)))
            i)
        (setq txt (concat txt " :"
-- 
1.6.4.4