Browse Source

org-faces: Use regexp-opt in org-set-tag-faces

* org-faces.el (org-set-tag-faces): Use appropriate call to regexp-opt

TINYCHANGE
Anders Johansson 6 years ago
parent
commit
4761fab2ff
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org-faces.el

+ 1 - 1
lisp/org-faces.el

@@ -311,7 +311,7 @@ determines if it is a foreground or a background color."
   (if (not value)
   (if (not value)
       (setq org-tags-special-faces-re nil)
       (setq org-tags-special-faces-re nil)
     (setq org-tags-special-faces-re
     (setq org-tags-special-faces-re
-	  (concat ":\\(" (mapconcat 'car value "\\|") "\\):"))))
+	  (concat ":" (regexp-opt (mapcar #'car value) t) ":"))))
 
 
 (defface org-checkbox '((t :inherit bold))
 (defface org-checkbox '((t :inherit bold))
   "Face for checkboxes."
   "Face for checkboxes."