ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Clocking work time: faster filtering of clock entries by trusting org-scanner-tags 

* lisp/org-clock.el (org-clock-get-table-data): Bind org-scanner-tags
to tags-list and org-trust-scanner-tags to t while evaluating the
matcher, since the matcher is always evaluated at the current entry.

TINYCHANGE
This commit is contained in:
Carsten Dominik 2012-03-16 17:35:19 +01:00
parent 768c95e18b
commit d23ce33583
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-clock.el
View File

@ -2463,7 +2463,9 @@ TIME: The sum of all time spend in this tree, in minutes. This time
(org-clock-sum ts te (org-clock-sum ts te
(unless (null matcher) (unless (null matcher)
(lambda () (lambda ()
(let ((tags-list (org-get-tags-at))) (let* ((tags-list (org-get-tags-at))
(org-scanner-tags tags-list)
(org-trust-scanner-tags t))
(eval matcher))))) (eval matcher)))))
(goto-char (point-min)) (goto-char (point-min))
(setq st t) (setq st t)