]> git.eshelyaron.com Git - emacs.git/commitdiff
(show-paren-function): Check for matching chars specified by text props.
authorRichard M. Stallman <rms@gnu.org>
Fri, 3 Dec 2004 00:06:21 +0000 (00:06 +0000)
committerRichard M. Stallman <rms@gnu.org>
Fri, 3 Dec 2004 00:06:21 +0000 (00:06 +0000)
lisp/paren.el

index e654cc2cc10dda8cff9c8e1426363dcfae61012a..bc5c2f1f007a5bc517e11260cb0676c024e6068d 100644 (file)
@@ -171,9 +171,11 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time."
                (let ((beg (min pos oldpos)) (end (max pos oldpos)))
                  (when (/= (char-syntax (char-after beg)) ?\$)
                    (setq mismatch
-                         (not (eq (char-before end)
+                         (not (eq (or (cdr (get-text-property (1- end) 'syntax-table))
+                                      (char-before end))
                                   ;; This can give nil.
-                                  (matching-paren (char-after beg)))))))))))
+                                  (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)