# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1102359898 0
# Node ID 769c3bb23105fb61f5094d8ac07324e13a8e7b89
# Parent  9b0a547610a40c802e6083eb227fcfafd8555038
(show-paren-function): Fix last change (2004-12-02).

diff -r 9b0a547610a4 -r 769c3bb23105 lisp/paren.el
--- a/lisp/paren.el	Mon Dec 06 19:04:04 2004 +0000
+++ b/lisp/paren.el	Mon Dec 06 19:04:58 2004 +0000
@@ -169,13 +169,14 @@
 	      ;; 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)) ?\$)
+		  (unless (eq (car (syntax-after beg)) 8) ;Not syntax `$'.
 		    (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))))))))))))
+			  (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)