                (timeline-tools-entry-start-time entry))
             60)))
 
-(defun timeline-tools-entry-category (entry)
+(defun timeline-tools-entry-category (entry &rest _)
   "Return ARCHIVE_CATEGORY or CATEGORY at position given by marker of ENTRY.
 Return whatever is found first."
   (let ((marker (timeline-tools-entry-marker entry)))

  :group 'timeline-tools
  :type 'integer)


;; Mode definition


(defvar timeline-tools--current-timeline nil
  "Currently displayed timeline in abstract form.")

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