@ -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.