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

[Richard M . Stallman]

Index: emacs/lisp/paren.el
diff -c emacs/lisp/paren.el:1.58 emacs/lisp/paren.el:1.59
*** emacs/lisp/paren.el:1.58    Mon Nov 22 06:00:51 2004
--- emacs/lisp/paren.el Fri Dec  3 00:06:21 2004
***************
*** 171,179 ****
                (let ((beg (min pos oldpos)) (end (max pos oldpos)))
                  (when (/= (char-syntax (char-after beg)) ?\$)
                    (setq mismatch
!                         (not (eq (char-before end)
                                   ;; This can give nil.
!                                  (matching-paren (char-after beg)))))))))))
        ;;
        ;; Highlight the other end of the sexp, or unhighlight if none.
        (if (not pos)
--- 171,181 ----
                (let ((beg (min pos oldpos)) (end (max pos oldpos)))
                  (when (/= (char-syntax (char-after beg)) ?\$)
                    (setq mismatch
!                         (not (eq (or (cdr (get-text-property (1- end) 
'syntax-table))
!                                      (char-before end))
                                   ;; This can give nil.
!                                  (or (cdr (get-text-property beg 
'syntax-table))
!                                      (matching-paren (char-after 
beg))))))))))))
        ;;
        ;; Highlight the other end of the sexp, or unhighlight if none.
        (if (not pos)