emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org-modern 2775d73156: Use org-list-full-item-re (Fix #


From: ELPA Syncer
Subject: [elpa] externals/org-modern 2775d73156: Use org-list-full-item-re (Fix #138)
Date: Wed, 14 Jun 2023 15:58:44 -0400 (EDT)

branch: externals/org-modern
commit 2775d731560c64e085d28446aefe5d0d8e4eb889
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use org-list-full-item-re (Fix #138)
---
 org-modern.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 7dd25eefd4..8832603822 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -343,8 +343,8 @@ the font.")
 
 (defun org-modern--checkbox ()
   "Prettify checkboxes according to `org-modern-checkbox'."
-  (let ((beg (match-beginning 1))
-        (end (match-end 1)))
+  (let ((beg (match-beginning 3))
+        (end (match-end 3)))
     (put-text-property
      beg end 'display
      (cdr (assq (char-after (1+ beg)) org-modern--checkbox-cache)))))
@@ -659,8 +659,8 @@ the font.")
      `((,(format "^\\*+ +%s " (regexp-opt org-todo-keywords-1 t))
         (0 (org-modern--todo)))))
    (when org-modern-checkbox
-     '(("^[ \t]*\\(?:[-+*]\\|[0-9]+[.)]\\)[ \t]+\\(\\[[ X-]\\]\\)[ \t]"
-        (0 (org-modern--checkbox)))))
+     `((,org-list-full-item-re
+        (3 (org-modern--checkbox) nil t))))
    (when (or org-modern-star org-modern-hide-stars)
      `(("^\\(\\**\\)\\* "
         (0 ,(if (eq org-modern-hide-stars t)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]