master
Fanael Linithien 12 years ago
parent d4d8f74158
commit 575620510f
  1. 18
      rainbow-delimiters.el

@ -441,8 +441,8 @@ MATCH is nil iff it's a mismatched closing delimiter."
;; Ensure user has enabled highlighting of this delimiter type.
(when (symbol-value delim)
(rainbow-delimiters--propertize-delimiter loc
depth
match)))
depth
match)))
;;; Font-Lock functionality
@ -496,18 +496,18 @@ Used by font-lock for dynamic highlighting."
(progn
(setq depth (1+ depth))
(rainbow-delimiters--apply-color (cdr opening-delim-info)
depth
delim-pos
t))
depth
delim-pos
t))
;; Not an opening delimiter, so it's a closing delimiter.
(let ((closing-delim-info
(assq delim rainbow-delimiters--closing-delim-info))
(matching-opening-delim (char-after (nth 1 ppss))))
(rainbow-delimiters--apply-color (nthcdr 2 closing-delim-info)
depth
delim-pos
(eq (nth 1 closing-delim-info)
matching-opening-delim))
depth
delim-pos
(eq (nth 1 closing-delim-info)
matching-opening-delim))
(setq depth (if (<= depth 0)
0 ; unmatched delim
(1- depth)))))))))))))

Loading…
Cancel
Save