diff --git a/ox-hugo.el b/ox-hugo.el index 849a0bf..e2a11e5 100644 --- a/ox-hugo.el +++ b/ox-hugo.el @@ -82,19 +82,18 @@ (define-obsolete-function-alias 'org-hugo-export-subtree-to-md-after-save 'org-hugo-export-wim-to-md-after-save "2017-11-30") ;; Using the correct function for getting inherited Org tags. -(defmacro org-hugo--get-tags-alias () - "Generate alias to point to the correct fn for getting inherited Org tags." - ;; Starting Org 9.2, `org-get-tags' returns all the inherited tags - ;; instead of returning only the local tags i.e. only the current - ;; headline tags. - ;; https://code.orgmode.org/bzg/org-mode/commit/fbe56f89f75a8979e0ba48001a822518df2c66fe - ;; For Org <= 9.1, `org-get-tags' returned a list of tags *only* at - ;; the current heading, while `org-get-tags-at' returned inherited - ;; tags too. +;; Starting Org 9.2, `org-get-tags' returns all the inherited tags +;; instead of returning only the local tags i.e. only the current +;; headline tags. +;; https://code.orgmode.org/bzg/org-mode/commit/fbe56f89f75a8979e0ba48001a822518df2c66fe + +;; For Org <= 9.1, `org-get-tags' returned a list of tags *only* at +;; the current heading, while `org-get-tags-at' returned inherited +;; tags too. +(with-no-warnings (if (fboundp #'org--get-local-tags) ;If using Org 9.2+ - `(defalias 'org-hugo--get-tags 'org-get-tags) - `(defalias 'org-hugo--get-tags 'org-get-tags-at))) -(org-hugo--get-tags-alias) + (defalias 'org-hugo--get-tags 'org-get-tags) + (defalias 'org-hugo--get-tags 'org-get-tags-at))) (defvar org-hugo--subtree-coord nil "Variable to store the current valid Hugo subtree coordinates.