From 4b25d48109fc0a3cd23fa286de04e472b312e250 Mon Sep 17 00:00:00 2001 From: Christoph Kern Date: Sat, 7 Jan 2023 23:06:58 -0800 Subject: [PATCH] Move point to entry before getting category. This was suggested in https://github.com/alphapapa/org-ql/pull/264#issuecomment-1055283069. --- org-ql-view.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/org-ql-view.el b/org-ql-view.el index c0ccf64..5b61aa7 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -877,8 +877,10 @@ return an empty string." (org-add-props it nil 'face 'org-tag)))) (category (if-let ((marker (or (org-element-property :org-hd-marker element) (org-element-property :org-marker element)))) - (with-current-buffer (marker-buffer marker) - (org-get-category marker)) + (with-current-buffer (marker-buffer marker) + (org-with-wide-buffer + (goto-char marker) + (org-get-category marker))) (warn "No marker found for item: %s" title))) (priority-string (-some->> (org-element-property :priority element) (char-to-string)