       (setq-local timeline-tools-time-format timeline-tools-time-format)
       (setq-local timeline-tools-headline-time-format timeline-tools-headline-time-format)
       (hl-line-mode)
-      (timeline-tools-redraw-timeline))
+      (timeline-tools-redraw-timeline 'force))
     (pop-to-buffer target-buffer)
     t))
 

  (dolist (file timeline-tools--current-files)
    (with-current-buffer (get-file-buffer file)
      (org-refresh-category-properties)))
  (setq-local timeline-tools--current-timeline nil)
  (timeline-tools-redraw-timeline))

(defun timeline-tools-forward-day ()
  "Display timeline of next day."

                (- timeline-tools--current-time-start 86400))
    (setq-local timeline-tools--current-time-end
                (- timeline-tools--current-time-end 86400))
    (timeline-tools-redraw-timeline 'force)))

(defun timeline-tools-skip-short-entries ()
  "Skip entries in current timeline that are too short.
