[Emacs-diffs] Changes to emacs/lisp/simple.el

[Stefan Monnier]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.712 emacs/lisp/simple.el:1.713
*** emacs/lisp/simple.el:1.712  Tue Apr 19 09:25:52 2005
--- emacs/lisp/simple.el        Tue Apr 19 18:12:23 2005
***************
*** 4193,4203 ****
                   (setq blinkpos (scan-sexps oldpos -1)))
               (error nil)))
           (and blinkpos
!               (not (eq (car (syntax-after blinkpos)) 8)) ;Not syntax '$'.
                (setq matching-paren
                      (let ((syntax (syntax-after blinkpos)))
                        (and (consp syntax)
!                            (eq (logand (car syntax) 255) 4)
                             (cdr syntax)))
                      mismatch
                      (or (null matching-paren)
--- 4193,4203 ----
                   (setq blinkpos (scan-sexps oldpos -1)))
               (error nil)))
           (and blinkpos
!               (not (syntax-class (syntax-after blinkpos)) 8)) ;Not syntax '$'.
                (setq matching-paren
                      (let ((syntax (syntax-after blinkpos)))
                        (and (consp syntax)
!                            (eq (syntax-class syntax) 4)
                             (cdr syntax)))
                      mismatch
                      (or (null matching-paren)