[nongnu] elpa/rainbow-delimiters ee4519d20a 046/188: Use face symbols instead of face strings to better cooperate with htmlize.

[ELPA Syncer]

branch: elpa/rainbow-delimiters
commit ee4519d20ad02b82c8dbd5c0f3302a3876334244
Author: Fanael Linithien <fanael4@gmail.com>
Commit: Fanael Linithien <fanael4@gmail.com>

    Use face symbols instead of face strings to better cooperate with htmlize.
---
 rainbow-delimiters.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/rainbow-delimiters.el b/rainbow-delimiters.el
index 6c4ad40d03..0201f8b113 100644
--- a/rainbow-delimiters.el
+++ b/rainbow-delimiters.el
@@ -289,7 +289,8 @@ Determines depth at which to cycle through faces again.")
   "Return face-name for DEPTH as a string 
'rainbow-delimiters-depth-DEPTH-face'.
 
 For example: 'rainbow-delimiters-depth-1-face'."
-  (concat "rainbow-delimiters-depth-"
+  (intern-soft
+   (concat "rainbow-delimiters-depth-"
           (number-to-string
            (or
             ;; Our nesting depth has a face defined for it.
@@ -304,7 +305,7 @@ For example: 'rainbow-delimiters-depth-1-face'."
                   (mod depth rainbow-delimiters-max-face-count)
                 ;; Special case: depth divides evenly into max, correct face # 
is max.
                 rainbow-delimiters-max-face-count))))
-          "-face"))
+          "-face")))
 
 
 ;;; Nesting level
@@ -386,7 +387,7 @@ Sets text properties:
 `rear-nonsticky' to prevent color from bleeding into subsequent characters 
typed by the user."
   (with-silent-modifications
     (let ((delim-face (if (<= depth 0)
-                          "rainbow-delimiters-unmatched-face"
+                          'rainbow-delimiters-unmatched-face
                         (rainbow-delimiters-depth-face depth))))
       ;; (when (eq depth -1) (message "Unmatched delimiter at char %s." loc))
       (add-text-properties loc (1+ loc)