From 2144c7e1109ab54852c9aa7533fbfc7c5e47c56f Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Tue, 11 Jun 2024 18:12:51 +0200 Subject: [PATCH] Fix headline display in timeline tools Why did I do this that complicated to begin with? --- site-lisp/timeline-tools.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/site-lisp/timeline-tools.el b/site-lisp/timeline-tools.el index 33c7657..633b44e 100644 --- a/site-lisp/timeline-tools.el +++ b/site-lisp/timeline-tools.el @@ -161,10 +161,7 @@ Return whatever is found first." (defun timeline-tools-entry-headline (entry) "Return the headline associated with ENTRY." - (let* ((marker (timeline-tools-entry-marker entry))) - (plist-get (cadr (org-with-point-at marker - (org-element-headline-parser (point-max)))) - :raw-value))) + (org-entry-get (timeline-tools-entry-marker entry) "ITEM")) ;; Utilities