# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1102032381 0
# Node ID ffd48e9f6a5743292878fbfc6bb6b4508720f901
# Parent  a67575cbdd93a45d5347ca3a9396e78b538a4e2c
(show-paren-function): Check for matching chars specified by text props.

diff -r a67575cbdd93 -r ffd48e9f6a57 lisp/paren.el
--- a/lisp/paren.el	Fri Dec 03 00:04:45 2004 +0000
+++ b/lisp/paren.el	Fri Dec 03 00:06:21 2004 +0000
@@ -171,9 +171,11 @@
 		(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)