[nongnu] elpa/rainbow-delimiters b3f87cfe99 072/188: Highlight delimiters even in already highlighted text.

[ELPA Syncer]

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

    Highlight delimiters even in already highlighted text.
    
    Fixes #10.
---
 rainbow-delimiters.el | 17 ++---------------
 1 file changed, 2 insertions(+), 15 deletions(-)

diff --git a/rainbow-delimiters.el b/rainbow-delimiters.el
index 704ac84ecf..ecb1143661 100644
--- a/rainbow-delimiters.el
+++ b/rainbow-delimiters.el
@@ -138,12 +138,6 @@
 ;; - Set up proper example defthemes for rainbow-delimiters faces.
 ;; - Intelligent support for other languages: Ruby, LaTeX tags, et al.
 
-;;; Issues:
-
-;; - Rainbow-delimiters mode does not appear to change the color of
-;;   delimiters when Org-mode is also enabled.
-
-
 ;;; Code:
 
 ;; Note: some of the functions in this file have been inlined for speed.
@@ -423,11 +417,7 @@ The syntax table is constructed by the function
 
 LOC is the location of the character to add text properties to.
 DEPTH is the nested depth at LOC, which determines the face to use.
-MATCH is nil iff it's a mismatched closing delimiter.
-
-Sets text properties:
-`font-lock-face' to the appropriate delimiter face.
-`rear-nonsticky' to prevent color from bleeding into subsequent characters 
typed by the user."
+MATCH is nil iff it's a mismatched closing delimiter."
   (let ((delim-face (cond
                      ((<= depth 0)
                       'rainbow-delimiters-unmatched-face)
@@ -435,10 +425,7 @@ Sets text properties:
                       'rainbow-delimiters-mismatched-face)
                      (t
                       (rainbow-delimiters-depth-face depth)))))
-    ;; (when (eq depth -1) (message "Unmatched delimiter at char %s." loc))
-    (add-text-properties loc (1+ loc)
-                         `(font-lock-face ,delim-face
-                           rear-nonsticky t))))
+    (font-lock-prepend-text-property loc (1+ loc) 'face delim-face)))
 
 (defvar rainbow-delimiters-escaped-char-predicate nil)
 (make-variable-buffer-local 'rainbow-delimiters-escaped-char-predicate)