From c5a0113367ec36e5c8fb24ed71adcde3cc8c7f0e Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sun, 20 Feb 2022 15:22:57 +0800 Subject: [PATCH] org-element-org-data-parser: Fix when invoked from indirect buffer * lisp/org-element.el (org-element-org-data-parser): Consider base buffer file name when calculating Org buffer category. --- lisp/org-element.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index 8fa98bff1..074564e4e 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -1276,9 +1276,16 @@ parser (e.g. `:end' and :END:). Return value is a plist." (min robust-end (point)))) (+ 2 contents-begin)))) (category (cond ((null org-category) - (when buffer-file-name + (when (with-current-buffer + (or (buffer-base-buffer) + (current-buffer)) + buffer-file-name) (file-name-sans-extension - (file-name-nondirectory buffer-file-name)))) + (file-name-nondirectory + (with-current-buffer + (or (buffer-base-buffer) + (current-buffer)) + buffer-file-name))))) ((symbolp org-category) (symbol-name org-category)) (t org-category))) (category (catch 'buffer-category