jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bypass narrowing when calculating inherited tags in narrowed buffer

Browse source 
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
1 changed files with 20 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

3
org-ql.el
View file

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