Re: [O] Bug: Matching tags: results incomplete when mixing group tags and their ancestors [9.1.7 (9.1.7-12-g74f6ed-elpaplus @ /home/martin/.emacs.d/elpa/org-plus-contrib-20180305/)]

[Martin Kampas]

Hi,

This seems to fix the bug.

Best Regards,
Martin

>From fef860e356a4ca75366f69ec9c2d52252c9d7d3f Mon Sep 17 00:00:00 2001
From: Martin Kampas <address@hidden>
Date: Thu, 15 Mar 2018 15:41:53 +0100
Subject: [PATCH] Fix matching tags when mixing group tags and their ancestors

* lisp/org.el (org-expand-tags): Fix recursion stop condition

See http://lists.gnu.org/r/emacs-orgmode/2018-03/msg00228.html
---
 lisp/org.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index 76bc60c88..7bf013390 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13960,7 +13960,7 @@ When DOWNCASE is non-nil, expand downcased TAGS."
                 (tag (match-string 2 return-match))
                 (tag (if downcased (downcase tag) tag)))
            (unless (or (get-text-property 0 'grouptag (match-string 2 return-
match))
-                       (member tag work-already-expanded))
+                       (member tag tags-already-expanded))
              (setq tags-in-group (assoc tag taggroups))
              (push tag work-already-expanded)
              ;; Recursively expand each tag in the group, if the tag hasn't
-- 
2.16.2