# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1132510039 0
# Node ID 8ad986f915009abd8267e1740be487c5939c271a
# Parent  ba04f6850d69a223245f10c996bd779ff8e0b559
(show-paren-function): Allow new paren-class info.

diff -r ba04f6850d69 -r 8ad986f91500 lisp/paren.el
--- a/lisp/paren.el	Sun Nov 20 18:06:05 2005 +0000
+++ b/lisp/paren.el	Sun Nov 20 18:07:19 2005 +0000
@@ -181,7 +181,12 @@
 				       (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)