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:
Adam Porter 2020-11-11 00:21:19 -06:00
parent 23e73addcf
commit 78fd672cc7

View file

@ -837,10 +837,12 @@ return an empty string."
;; MAYBE: Use our own variable instead of `org-use-tag-inheritance'.
(if-let ((marker (or (org-element-property :org-hd-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)
unless (or (eq 'org-ql-nil type)
(not type))
append type)
append type)))
;; No marker found
;; TODO: Use `display-warning' with `org-ql' as the type.
(warn "No marker found for item: %s" title)