From 1a9115d9ea2889935e018a451bf78608d6aac480 Mon Sep 17 00:00:00 2001 From: Phillip Lord Date: Sat, 27 Jul 2019 20:30:47 +0100 Subject: Fix org-get-tags compatability The <9.2 compatability advice was working incorrectly by calling `org-get-tags` which prior to 9.2 returned only local tags. This now calls `org-get-tags-at` which seems to work. --- org-drill.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/org-drill.el b/org-drill.el index 2e19530..b342e05 100644 --- a/org-drill.el +++ b/org-drill.el @@ -661,7 +661,9 @@ regardless of whether the test was successful.") (if (= 2 (length args)) ;; and we don't want any byte compile errors (if (fboundp 'org-get-local-tags) (org-get-local-tags)) - (funcall orig-fun))) + ;; the non-arg version doesn't return inherited tags, but + ;; get-tags-at does. + (org-get-tags-at))) (when (= 8 (car (version-to-list org-version))) ;; Shut up package-lint -- cgit v1.2.3