# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1132510135 0
# Node ID ac8622e9be6dab1da4b608cadc6507d316fd90e7
# Parent  8ad986f915009abd8267e1740be487c5939c271a
(blink-matching-open): Allow new paren-class info.

diff -r 8ad986f91500 -r ac8622e9be6d lisp/simple.el
--- a/lisp/simple.el	Sun Nov 20 18:07:19 2005 +0000
+++ b/lisp/simple.el	Sun Nov 20 18:08:55 2005 +0000
@@ -4316,7 +4316,11 @@
 			  (eq (syntax-class syntax) 4)
 			  (cdr syntax)))))
 	(cond
-	 ((not (eq matching-paren (char-before oldpos)))
+	 ((not (or (eq matching-paren (char-before oldpos))
+                   ;; The cdr might hold a new paren-class info rather than
+                   ;; a matching-char info, in which case the two CDRs
+                   ;; should match.
+                   (eq matching-paren (cdr (syntax-after oldpos)))))
 	  (message "Mismatched parentheses"))
 	 ((not blinkpos)
 	  (if (not blink-matching-paren-distance)