From b2bd5115a89b9b26107aca4b59e516dc7d64f0cc Mon Sep 17 00:00:00 2001 From: Jim Porter Date: Sat, 18 Sep 2021 12:22:41 -0700 Subject: [PATCH] org-mouse: Support intermediate-state checkboxes * lisp/org-mouse.el (org-mode-hook): Use regexp from `org-set-font-lock-defaults' and set font-lock keywords more robustly. --- lisp/org-mouse.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el index 4471d8e8d..eae6cd98f 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -890,8 +890,8 @@ This means, between the beginning of line and the point." (when (memq 'activate-checkboxes org-mouse-features) (font-lock-add-keywords nil - `(("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)" - (2 `(face org-checkbox keymap ,org-mouse-map mouse-face highlight) t))) + `(("^[ \t]*\\(?:[-+*]\\|[0-9]+[.)]\\)[ \t]+\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ \t]*\\)?\\(\\[[- X]\\]\\)" + (1 `(face nil keymap ,org-mouse-map mouse-face highlight) prepend))) t)) (defadvice org-open-at-point (around org-mouse-open-at-point activate) -- 2.25.1