From 98580e20de0071ad39129e21293c266905e44b41 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 19 Apr 2005 18:12:23 +0000 Subject: [PATCH] (blink-matching-open): Use it. --- lisp/simple.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2