Fix: (org-ql-view--format-element) Get tags from marker buffer
Fixes bug introduced in 359a280d11.
Fixes #150. Thanks to @tpeacock19 for reporting.
This commit is contained in:
parent
23e73addcf
commit
78fd672cc7
1 changed files with 6 additions and 4 deletions
|
|
@ -837,10 +837,12 @@ return an empty string."
|
||||||
;; MAYBE: Use our own variable instead of `org-use-tag-inheritance'.
|
;; MAYBE: Use our own variable instead of `org-use-tag-inheritance'.
|
||||||
(if-let ((marker (or (org-element-property :org-hd-marker element)
|
(if-let ((marker (or (org-element-property :org-hd-marker element)
|
||||||
(org-element-property :org-marker element))))
|
(org-element-property :org-marker element))))
|
||||||
|
(with-current-buffer (marker-buffer marker)
|
||||||
|
(org-with-wide-buffer
|
||||||
(cl-loop for type in (org-ql--tags-at marker)
|
(cl-loop for type in (org-ql--tags-at marker)
|
||||||
unless (or (eq 'org-ql-nil type)
|
unless (or (eq 'org-ql-nil type)
|
||||||
(not type))
|
(not type))
|
||||||
append type)
|
append type)))
|
||||||
;; No marker found
|
;; No marker found
|
||||||
;; TODO: Use `display-warning' with `org-ql' as the type.
|
;; TODO: Use `display-warning' with `org-ql' as the type.
|
||||||
(warn "No marker found for item: %s" title)
|
(warn "No marker found for item: %s" title)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue