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

[Stefan Monnier]

Index: emacs/lisp/paren.el
diff -c emacs/lisp/paren.el:1.59 emacs/lisp/paren.el:1.60
*** emacs/lisp/paren.el:1.59    Fri Dec  3 00:06:21 2004
--- emacs/lisp/paren.el Mon Dec  6 19:04:58 2004
***************
*** 169,181 ****
              ;; kind of paren to match the one we started at.
              (when (integerp pos)
                (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)
--- 169,182 ----
              ;; kind of paren to match the one we started at.
              (when (integerp pos)
                (let ((beg (min pos oldpos)) (end (max pos oldpos)))
!                 (unless (eq (car (syntax-after beg)) 8) ;Not syntax `$'.
                    (setq mismatch
!                         (not (or (eq (char-before end)
!                                      ;; This can give nil.
!                                      (cdr (syntax-after beg)))
!                                  (eq (char-after beg)
!                                      ;; This can give nil.
!                                      (cdr (syntax-after (1- end)))))))))))))
        ;;
        ;; Highlight the other end of the sexp, or unhighlight if none.
        (if (not pos)