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

Question

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

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

Answer 1

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

下面是对rainbow-delimiters的肮脏黑客攻击，它突出显示了jit-lock提供的区域中的第一个开始分隔符，如果scan-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 并删除了文件末尾的深度测试。我的印象是行为有所改善。