Bypass narrowing when calculating inherited tags in narrowed buffer

Otherwise, children queries may generate wrong tags and pollute tag cache.
This commit is contained in:
Ihor Radchenko 2021-04-05 21:11:46 +08:00
parent 9b30c4139b
commit 3e6818d819
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B

View file

@ -565,6 +565,7 @@ Returns cons (INHERITED-TAGS . LOCAL-TAGS)."
'org-ql-nil))
(inherited-tags (or (when org-use-tag-inheritance
(save-excursion
(org-with-wide-buffer
(if (org-up-heading-safe)
;; Return parent heading's tags.
(-let* (((inherited local) (org-ql--tags-at (point)))
@ -583,7 +584,7 @@ Returns cons (INHERITED-TAGS . LOCAL-TAGS)."
('nil tags)
(_ (-difference tags org-tags-exclude-from-inheritance))))
;; Top-level heading: use file tags.
org-file-tags)))
org-file-tags))))
'org-ql-nil))
(all-tags (list inherited-tags local-tags)))
;; Check caches again, because they may have been set now.