|
@@ -8004,7 +8004,7 @@ tags in the FILTER if any of the tags in FILTER are grouptags."
|
|
(save-excursion
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(goto-char (point-min))
|
|
(while (not (eobp))
|
|
(while (not (eobp))
|
|
- (if (org-get-at-bol 'org-marker)
|
|
|
|
|
|
+ (if (org-get-at-bol 'org-hd-marker)
|
|
(progn
|
|
(progn
|
|
(setq tags (org-get-at-bol 'tags)
|
|
(setq tags (org-get-at-bol 'tags)
|
|
cat (org-agenda-get-category)
|
|
cat (org-agenda-get-category)
|