From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 19 Apr 2005 18:12:23 +0000 (+0000)
Subject: (blink-matching-open): Use it.
X-Git-Tag: ttn-vms-21-2-B4~887
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98580e20de0071ad39129e21293c266905e44b41;p=emacs.git

(blink-matching-open): Use it.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index b595ff5b44b..c73f549f31c 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4193,11 +4193,11 @@ when it is off screen)."
 		   (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)