diff --git a/rainbow-delimiters.el b/rainbow-delimiters.el index 704ac84..ecb1143 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)