diff options
author | Stefan Monnier <[email protected]> | 2005-04-19 18:12:23 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2005-04-19 18:12:23 +0000 |
commit | 98580e20de0071ad39129e21293c266905e44b41 (patch) | |
tree | bb64edf99aac96312843cafcabbf138afe052378 /lisp | |
parent | cdd8dc28f3d48ae8e6773fab9d0792aab425b552 (diff) |
(blink-matching-open): Use it.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index b595ff5b44..c73f549f31 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) |