   (save-mark-and-excursion
    ;; get actual entry from headline of line
    (end-of-line)
-   (unless (looking-back " |$")
-     (user-error "Not in table."))
+   (unless (looking-back " |$" nil)
+     (user-error "Not in table"))
    (org-table-previous-field)
    (let ((entry (get-text-property (point) 'entry)))
      (unless entry
-       (user-error "Not on valid row in timeline."))
+       (user-error "Not on valid row in timeline"))
      (unless (< 1 (length timeline-tools--current-timeline))
-       (user-error "Cannot delete last line."))
+       (user-error "Cannot delete last line"))
      (setq-local timeline-tools--current-timeline
                  (timeline-tools-transform-timeline
                   (delq entry timeline-tools--current-timeline)))))

  "Format of time used in the headline of a timeline.")

(defvar timeline-tools-time-format "%Y-%m-%d %H:%M"
  "Format of time used inside a timeline")

(defvar timeline-tools-mode-map
  (let ((map (make-sparse-keymap)))

              (timeline-tools-make-entry
               (timeline-tools-entry-start-time (-first-item cluster))
               (timeline-tools-entry-end-time (-last-item cluster))
               (timeline-tools-entry-marker (-first-item cluster))))
            new-timeline)))

(defun timeline-tools-remove-short-entries (timeline &optional threshold)
