Browse Source

agenda: Make the non-hd lines applicable for filters

Remark: Examples for non-hd lines are "Diary lines" and "Anniv lines".
Marco Wahl 5 years ago
parent
commit
348e607889
1 changed files with 3 additions and 2 deletions
  1. 3 2
      lisp/org-agenda.el

+ 3 - 2
lisp/org-agenda.el

@@ -8004,10 +8004,11 @@ tags in the FILTER if any of the tags in FILTER are grouptags."
   (save-excursion
     (goto-char (point-min))
     (while (not (eobp))
-      (when (org-get-at-bol 'org-hd-marker)
+      (when (or (org-get-at-bol 'org-hd-marker)
+		(org-get-at-bol 'org-marker))
 	(let ((tags (org-get-at-bol 'tags))
 	      (cat (org-agenda-get-category))
-	      (txt (org-get-at-bol 'txt)))
+	      (txt (or (org-get-at-bol 'txt) "")))
 	  (unless (eval org-agenda-filter-form)
 	    (org-agenda-filter-hide-line type))))
       (beginning-of-line 2)))