hl-todo-mode: Absorb hl-todo--setup

tarsius · Aug 28, 2023 · 4450aea · 4450aea
1 parent 5bb58f1
commit 4450aea
Showing 1 changed file with 6 additions and 9 deletions.
diff --git a/hl-todo.el b/hl-todo.el
@@ -214,12 +214,6 @@ See the function `hl-todo--regexp'."
                              (if hl-todo-require-punctuation "+" "*")))
                 "\\)")))
 
-(defun hl-todo--setup ()
-  (setq hl-todo--keywords
-        `((,(lambda (bound) (hl-todo--search nil bound))
-           (1 (hl-todo--get-face) prepend t))))
-  (font-lock-add-keywords nil hl-todo--keywords t))
-
 (defvar hl-todo--syntax-table (copy-syntax-table text-mode-syntax-table))
 
 (defvar syntax-ppss-table) ; Silence Emacs 25's byte-compiler.
@@ -276,9 +270,12 @@ If COLOR is a face symbol, do not combine, return COLOR instead."
   :lighter ""
   :keymap hl-todo-mode-map
   :group 'hl-todo
-  (if hl-todo-mode
-      (hl-todo--setup)
-    (font-lock-remove-keywords nil hl-todo--keywords))
+  (cond (hl-todo-mode
+         (setq hl-todo--keywords
+               `((,(lambda (bound) (hl-todo--search nil bound))
+                  (1 (hl-todo--get-face) prepend t))))
+         (font-lock-add-keywords nil hl-todo--keywords t))
+        ((font-lock-remove-keywords nil hl-todo--keywords)))
   (when font-lock-mode
     (jit-lock-mode 1)))