[elpa] externals/org a03b465 1/2: org.el (org-font-lock-add-priority-faces): Speed up regexp

[ELPA Syncer]

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