Przeglądaj źródła

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 lat temu
rodzic
commit
4761fab2ff
1 zmienionych plików z 1 dodań i 1 usunięć
  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)
       (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."