mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-04 08:47:03 +00:00
Code

agenda: Make the non-hd lines applicable for filters

Browse Source 
Remark: Examples for non-hd lines are "Diary lines" and "Anniv lines".
This commit is contained in:
Marco Wahl 2019-12-09 23:19:10 +01:00
parent 2f9188658b
commit 348e607889
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-agenda.el
View File

@ -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)))