From 4761fab2ff6a2f893c21c404a4ef48eae5eb3078 Mon Sep 17 00:00:00 2001 From: Anders Johansson Date: Thu, 31 Jan 2019 15:04:30 +0100 Subject: [PATCH] org-faces: Use regexp-opt in org-set-tag-faces * org-faces.el (org-set-tag-faces): Use appropriate call to regexp-opt TINYCHANGE --- lisp/org-faces.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 1ba5b5ef7..8e9726cce 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -311,7 +311,7 @@ determines if it is a foreground or a background color." (if (not value) (setq org-tags-special-faces-re nil) (setq org-tags-special-faces-re - (concat ":\\(" (mapconcat 'car value "\\|") "\\):")))) + (concat ":" (regexp-opt (mapcar #'car value) t) ":")))) (defface org-checkbox '((t :inherit bold)) "Face for checkboxes." -- 2.11.4.GIT