[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org a03b465 1/2: org.el (org-font-lock-add-priority-fac
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org a03b465 1/2: org.el (org-font-lock-add-priority-faces): Speed up regexp |
Date: |
Tue, 2 Mar 2021 00:57:10 -0500 (EST) |
branch: externals/org
commit a03b4656cf9e167d99c8b535d63ddb31ea8fe78f
Author: Sébastien Miquel <sebastien.miquel@posteo.eu>
Commit: Kyle Meyer <kyle@kyleam.com>
org.el (org-font-lock-add-priority-faces): Speed up regexp
* org.el (org-font-lock-add-priority-faces): Speed up regexp.
Only fontify priority cookies in headlines.
Note that the variable org-priority-regexp can't be modified since
it is used in the agenda and in org-get-priority.
TINYCHANGE
Suggested-by: Ihor Radchenko <yantar92@gmail.com>
---
lisp/org.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 1e60f60..fd62267 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5855,7 +5855,7 @@ If TAG is a number, get the corresponding match group."
(defun org-font-lock-add-priority-faces (limit)
"Add the special priority faces."
- (while (re-search-forward org-priority-regexp limit t)
+ (while (re-search-forward (concat "^\\*+" org-priority-regexp) limit t)
(let ((beg (match-beginning 1))
(end (1+ (match-end 2))))
(add-face-text-property