   (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))
+  (timeline-tools-redraw-timeline 'force))
 
 (defun timeline-tools-forward-day ()
   "Display timeline of next day."

      (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))
    (pop-to-buffer target-buffer)
    t))


                (- 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.
