I just noticed a place where it would be appropriate to use
regexp-opt instead of doing:
(concat ":\\(" (mapconcat 'car value "\\|") "\\):"))))
regexp-opt promises to be more efficient.
--
Anders Johansson
>From 2a70a709dcbdb1ff7d00b20de8410935d725ac70 Mon Sep 17 00:00:00 2001
From: Anders Johansson <mejlaande...@gmail.com>
Date: Thu, 31 Jan 2019 15:04:30 +0100
Subject: [PATCH] org-faces.el: 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 1ba5b5e..1b9118f 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.20.1
