From e5818fdb8cf236e3bdedb3545dfc5f4f097cd6d5 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Thu, 31 Mar 2022 13:07:21 +0200 Subject: [PATCH] Remove 'marker text property in timelines The marker is contained in the entry anyway, so let's use that. --- site-lisp/timeline-tools.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/site-lisp/timeline-tools.el b/site-lisp/timeline-tools.el index fa02ee3..dae2f49 100644 --- a/site-lisp/timeline-tools.el +++ b/site-lisp/timeline-tools.el @@ -521,7 +521,6 @@ current values of the relevant buffer local variables." (timeline-tools-format-entry-time line 'end) (timeline-tools-entry-duration line) (timeline-tools-entry-headline line)) - 'marker (timeline-tools-entry-marker line) 'entry line)))) (insert "|--|\n") (org-table-align) @@ -613,9 +612,10 @@ Updates category properties before constructing the new timeline." (unless (eq major-mode 'timeline-tools-mode) (user-error "Not in Timeline buffer")) (let ((marker (save-mark-and-excursion - (beginning-of-line) - (org-table-next-field) - (get-text-property (point) 'marker)))) + (beginning-of-line) + (org-table-next-field) + (-> (get-text-property (point) 'entry) + (timeline-tools-entry-marker))))) (unless marker (user-error "Not on headline to jump to")) (switch-to-buffer (marker-buffer marker))