Remove 'marker text property in timelines

The marker is contained in the entry anyway, so let's use that.
This commit is contained in:
Daniel - 2022-03-31 13:07:21 +02:00
parent b80f05d49f
commit e5818fdb8c
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 4 additions and 4 deletions

View File

@ -521,7 +521,6 @@ current values of the relevant buffer local variables."
(timeline-tools-format-entry-time line 'end) (timeline-tools-format-entry-time line 'end)
(timeline-tools-entry-duration line) (timeline-tools-entry-duration line)
(timeline-tools-entry-headline line)) (timeline-tools-entry-headline line))
'marker (timeline-tools-entry-marker line)
'entry line)))) 'entry line))))
(insert "|--|\n") (insert "|--|\n")
(org-table-align) (org-table-align)
@ -613,9 +612,10 @@ Updates category properties before constructing the new timeline."
(unless (eq major-mode 'timeline-tools-mode) (unless (eq major-mode 'timeline-tools-mode)
(user-error "Not in Timeline buffer")) (user-error "Not in Timeline buffer"))
(let ((marker (save-mark-and-excursion (let ((marker (save-mark-and-excursion
(beginning-of-line) (beginning-of-line)
(org-table-next-field) (org-table-next-field)
(get-text-property (point) 'marker)))) (-> (get-text-property (point) 'entry)
(timeline-tools-entry-marker)))))
(unless marker (unless marker
(user-error "Not on headline to jump to")) (user-error "Not on headline to jump to"))
(switch-to-buffer (marker-buffer marker)) (switch-to-buffer (marker-buffer marker))