Mercurial > emacs
changeset 61670:c1e3fbdb9d71
(blink-matching-open): Use it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 19 Apr 2005 18:12:23 +0000 |
| parents | c95f35bea727 |
| children | c0bf74e7fc30 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)