]> git.eshelyaron.com Git - emacs.git/commitdiff
(blink-matching-open): Use it.
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 19 Apr 2005 18:12:23 +0000 (18:12 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 19 Apr 2005 18:12:23 +0000 (18:12 +0000)
lisp/simple.el

index b595ff5b44b8fd049f96559e1ce4b470149e315d..c73f549f31cb7788883e055e9cf12966cf719d41 100644 (file)
@@ -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)