# HG changeset patch # User Stefan Monnier # Date 1113934405 0 # Node ID c0bf74e7fc30097c755cf10ef5e429605e36b577 # Parent c1e3fbdb9d71e077b42ce49fbe7302db83b5fd8c (blink-matching-open): Fix botched commit. diff -r c1e3fbdb9d71 -r c0bf74e7fc30 lisp/simple.el --- a/lisp/simple.el Tue Apr 19 18:12:23 2005 +0000 +++ b/lisp/simple.el Tue Apr 19 18:13:25 2005 +0000 @@ -4193,7 +4193,8 @@ (setq blinkpos (scan-sexps oldpos -1))) (error nil))) (and blinkpos - (not (syntax-class (syntax-after blinkpos)) 8)) ;Not syntax '$'. + ;; Not syntax '$'. + (not (eq (syntax-class (syntax-after blinkpos)) 8)) (setq matching-paren (let ((syntax (syntax-after blinkpos))) (and (consp syntax)