From 1793ac759fab732d4e5b2242b17ab9e1f797810f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 20 Nov 2005 18:07:19 +0000 Subject: [PATCH] (show-paren-function): Allow new paren-class info. --- lisp/paren.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/paren.el b/lisp/paren.el index a1cc12712f7..ece3ed3c606 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -181,7 +181,12 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." (cdr (syntax-after beg))) (eq (char-after beg) ;; This can give nil. - (cdr (syntax-after (1- end))))))))))))) + (cdr (syntax-after (1- end)))) + ;; The cdr might hold a new paren-class + ;; info rather than a matching-char info, + ;; in which case the two CDRs should match. + (eq (cdr (syntax-after (1- end))) + (cdr (syntax-after beg)))))))))))) ;; ;; Highlight the other end of the sexp, or unhighlight if none. (if (not pos) -- 2.11.4.GIT