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

[Stefan Monnier]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.768 emacs/lisp/simple.el:1.769
*** emacs/lisp/simple.el:1.768  Sun Nov 20 07:43:01 2005
--- emacs/lisp/simple.el        Sun Nov 20 18:08:55 2005
***************
*** 4316,4322 ****
                          (eq (syntax-class syntax) 4)
                          (cdr syntax)))))
        (cond
!        ((not (eq matching-paren (char-before oldpos)))
          (message "Mismatched parentheses"))
         ((not blinkpos)
          (if (not blink-matching-paren-distance)
--- 4316,4326 ----
                          (eq (syntax-class syntax) 4)
                          (cdr syntax)))))
        (cond
!        ((not (or (eq matching-paren (char-before oldpos))
!                    ;; The cdr might hold a new paren-class info rather than
!                    ;; a matching-char info, in which case the two CDRs
!                    ;; should match.
!                    (eq matching-paren (cdr (syntax-after oldpos)))))
          (message "Mismatched parentheses"))
         ((not blinkpos)
          (if (not blink-matching-paren-distance)