[elpa] externals/org 3bf33c0d7b 3/3: org-clock-get-table-data: Fix error when :match uses LEVEL

[ELPA Syncer]

branch: externals/org
commit 3bf33c0d7bc83a8366e90792dedbc4eede6f63fe
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-clock-get-table-data: Fix error when :match uses LEVEL
    
    * lisp/org-clock.el (org-clock-get-table-data): Pass headline level to
    the clock table matcher.
    
    Link: 
https://orgmode.org/list/8acdd46f-4137-4957-bb52-827d817eb5e7@uberco.de
---
 lisp/org-clock.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 67feb6b35d..c572cc279e 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -3112,8 +3112,9 @@ PROPERTIES: The list properties specified in the 
`:properties' parameter
                         (let* ((todo (org-get-todo-state))
                                (tags-list (org-get-tags))
                                (org-scanner-tags tags-list)
-                               (org-trust-scanner-tags t))
-                          (funcall matcher todo tags-list nil)))))
+                               (org-trust-scanner-tags t)
+                                (level (org-current-level)))
+                          (funcall matcher todo tags-list level)))))
       (goto-char (point-min))
       (setq st t)
       (while (or (and (bobp) (prog1 st (setq st nil))