# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1113934343 0
# Node ID c1e3fbdb9d71e077b42ce49fbe7302db83b5fd8c
# Parent  c95f35bea727e79ec9d611894f428858f19fdaf9
(blink-matching-open): Use it.

diff -r c95f35bea727 -r c1e3fbdb9d71 lisp/simple.el
--- a/lisp/simple.el	Tue Apr 19 18:11:26 2005 +0000
+++ b/lisp/simple.el	Tue Apr 19 18:12:23 2005 +0000
@@ -4193,11 +4193,11 @@
 		   (setq blinkpos (scan-sexps oldpos -1)))
 	       (error nil)))
 	   (and blinkpos
-		(not (eq (car (syntax-after blinkpos)) 8)) ;Not syntax '$'.
+		(not (syntax-class (syntax-after blinkpos)) 8)) ;Not syntax '$'.
 		(setq matching-paren
 		      (let ((syntax (syntax-after blinkpos)))
 			(and (consp syntax)
-			     (eq (logand (car syntax) 255) 4)
+			     (eq (syntax-class syntax) 4)
 			     (cdr syntax)))
 		      mismatch
 		      (or (null matching-paren)