tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-agenda.el: Add a 'tags property for agenda entries created from sexps 

* org-agenda.el (org-agenda-get-sexps): Add a 'tags property
for agenda entries created from sexps.

Thanks to Simon Thum for reporting this.
This commit is contained in:
Bastien Guerry 2012-08-10 12:29:51 +02:00
parent d9ebb7c8be
commit 621364fc6d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-agenda.el
View File

@ -5105,6 +5105,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines',
(setq marker (org-agenda-new-marker beg)
category (org-get-category beg)
org-category-pos (get-text-property beg 'org-category-position)
tags (save-excursion (org-backward-heading-same-level 0) (org-get-tags))
todo-state (org-get-todo-state))
(dolist (r (if (stringp result)
@ -5123,7 +5124,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines',
(org-add-props txt props 'org-marker marker)
(org-add-props txt nil
'org-category category 'date date 'todo-state todo-state
'org-category-position org-category-pos
'org-category-position org-category-pos 'tags tags
'type "sexp")
(push txt ee)))))
(nreverse ee)))