From 877d78345fdfa1b2b0db14d9d82b908172cd169b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:35:02 +0300 Subject: [PATCH 61/76] Deprecate org-num--headline-regexp. --- lisp/org-num.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-num.el b/lisp/org-num.el index 35ce61155..874543639 100644 --- a/lisp/org-num.el +++ b/lisp/org-num.el @@ -173,7 +173,7 @@ for heading \"1.2.3\" is (3 2 1).") ;;; Internal Functions -(defsubst org-num--headline-regexp () +(defsubst org-num--heading-regexp () "Return regexp matching a numbered heading." (if (null org-num-max-level) (org-with-limited-levels org-outline-regexp-bol) (format "^\\*\\{1,%d\\} " @@ -304,7 +304,7 @@ first." (org-with-point-at (or start 1) ;; Do not match heading starting at START. (when start (end-of-line)) - (let ((regexp (org-num--headline-regexp)) + (let ((regexp (org-num--heading-regexp)) (new nil)) (while (re-search-forward regexp end t) (let* ((level (org-reduced-level @@ -390,7 +390,7 @@ See this variable for the meaning of BEG and END." (setq org-num--missing-overlay nil) (save-match-data (org-with-point-at beg - (let ((regexp (org-num--headline-regexp))) + (let ((regexp (org-num--heading-regexp))) ;; At this point, directly altered overlays between BEG and ;; END are marked as invalid and will trigger a full update. ;; However, there are still two cases to handle. -- 2.33.0