           (when (not (equal last-category current-category))
             (insert "|--|\n")
             (setq last-category current-category))
-          (insert (format "| %s | %s | %s | %s min | %s | \n"
-                          current-category
-                          (timeline-tools-format-entry-time line 'start)
-                          (timeline-tools-format-entry-time line 'end)
-                          (timeline-tools-entry-duration line)
-                          (propertize (timeline-tools-entry-headline line)
-                                      'marker (timeline-tools-entry-marker line)
-                                      'entry line)))))
+          (insert
+           (propertize (format "| %s | %s | %s | %s min | %s | \n"
+                               current-category
+                               (timeline-tools-format-entry-time line 'start)
+                               (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)
       (goto-char (point-min))

  (unless (eq major-mode 'timeline-tools-mode)
    (user-error "Not in Timeline buffer"))
  (save-mark-and-excursion
   ;; get actual entry from headline of line
   (beginning-of-line)
   (unless (looking-at "^| ")
     (user-error "Not in table"))
   ;; Move 5 columns to find the actual entry
   (dotimes (_ 5)
     (org-table-next-field))
   (let ((entry (get-text-property (point) 'entry)))
     (unless entry
       (user-error "Not on valid row in timeline"))
     (unless (< 1 (length timeline-tools--current-timeline))
       (user-error "Cannot delete last line"))
     (setq-local timeline-tools--current-timeline
                 (timeline-tools-transform-timeline
                  (delq entry timeline-tools--current-timeline)))))
  ;; the call to `erase-buffer’ in `timeline-tools-redraw-timeline’ somehow
  ;; makes `save-mark-and-excursion’ meaningless; thus we save the number of the
  ;; current line by ourselves

  (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))))
    (unless marker
      (user-error "Not on headline to jump to"))
