(show-paren-function): Check for matching chars specified by text props.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/paren.el b/lisp/paren.el
index e654cc2cc10..bc5c2f1f007 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -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)