From 4450aeaddf0a4ab87f9f997e874be1ce7806642c Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Mon, 28 Aug 2023 23:00:40 +0200 Subject: [PATCH] hl-todo-mode: Absorb hl-todo--setup --- hl-todo.el | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/hl-todo.el b/hl-todo.el index 7cd48f5..82ff2c5 100644 --- 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)))