diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-04 23:28:58 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-01-04 23:28:58 +0100 |
| commit | 8318957da5afe76354e9cfebb0383ab21e65ce56 (patch) | |
| tree | c970d93b89d0f87f49d40052cec6e30f054227b9 | |
| parent | 7419075e484b4fc6527b2a930123466bbb0da6a7 (diff) | |
| download | org-mode-8318957da5afe76354e9cfebb0383ab21e65ce56.tar.gz | |
org-agenda: Fix effort filtering for entries with tags
* lisp/org-agenda.el (org-agenda-compare-effort): Fix retrieval of
`effort-minutes' property from entries with tags.
Reported-by: wtm <wtmonroe.ls@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/111194>
| -rw-r--r-- | lisp/org-agenda.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 2919dc6..13aabf5 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7713,8 +7713,11 @@ E looks like \"+<2:25\"." (defun org-agenda-compare-effort (op value) "Compare the effort of the current line with VALUE, using OP. If the line does not have an effort defined, return nil." - (let ((eff (org-get-at-eol 'effort-minutes 1))) - (funcall op (or eff (if org-sort-agenda-noeffort-is-high 32767 -1)) + ;; `effort-minutes' property cannot be extracted directly from + ;; current line but is stored as a property in `txt'. + (let ((effort (get-text-property 0 'effort-minutes (org-get-at-bol 'txt)))) + (funcall op + (or effort (if org-sort-agenda-noeffort-is-high 32767 -1)) value))) (defun org-agenda-filter-expand-tags (filter &optional no-operator) |