diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2012-03-16 17:35:19 +0100 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2012-03-16 17:35:19 +0100 |
| commit | d23ce33583e3048a922b5e26af452a69cbfbcdd1 (patch) | |
| tree | c7349207640b63e5588ba2de95b12c12d86e7ea9 | |
| parent | 768c95e18bf76c4470bf92d820092ceb202eaf61 (diff) | |
| download | org-mode-d23ce33583e3048a922b5e26af452a69cbfbcdd1.tar.gz | |
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
| -rw-r--r-- | lisp/org-clock.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 9206608..46d9af8 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2463,7 +2463,9 @@ TIME: The sum of all time spend in this tree, in minutes. This time (org-clock-sum ts te (unless (null matcher) (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))))) (goto-char (point-min)) (setq st t) |