突出显示第一个不匹配的括号

Question

Rainbow-delimiters 是一个很好的库，用于显示匹配的括号。它有一个很好的特性，如果你有额外的右括号，它会将它们涂上一些鲜艳的颜色。

例如，在( )) 第二个)中将显示红色。如果其他方向也有效的话我会喜欢的。即，(( )第一个括号显示为鲜红色。有没有办法调整彩虹分隔符来做到这一点，或者我可以使用其他一些包来做到这一点？

Answer 1

实际的问题是，不清楚或很难确定哪个起始分隔符是错误的并且必须突出显示。请注意，在示例中，(()第一个或第二个括号可能是错误的。可能是第三个括号结束第二个括号，而第一个括号的右括号丢失，或者第一个括号与第三个括号匹配，而第二个括号的右括号丢失。

接下来是一个肮脏的黑客行为，突出显示了ifrainbow-delimiters提供的区域中的第一个开始分隔符，该分隔符给出了错误。对错误分隔符的猜测可能是错误的。但是，也许黑客总比没有好。jit-lockscan-sexps

(defadvice rainbow-delimiters-propertize-region (after hack-unmatching-open activate)
  "Also mark unmatching open delimiters. Fast fragile hack, not regarding type of delimiter."
  (save-excursion
    (goto-char start)
    (while (and
        (< (point) end)
        (re-search-forward "[[{(]" end t)) ;;< first opening delimiter within region
      (let ((pos (1- (point)))) ;; Note, syntax-ppss does shift position anyway. So, avoiding this does not make sense.
    (unless (save-excursion (rainbow-delimiters-char-ineligible-p pos))
      (condition-case err
          (goto-char (scan-sexps pos 1))
        (scan-error
         (rainbow-delimiters-apply-color (cdr (assoc (char-before) '((?\( . "paren") (?\[ . "bracket") (?\{ . "brace")))) -1 pos))))))))

编辑：我已包含scan-sexps在测试中并删除了文件末尾的深度测试。我的印象是行为有所改善。