# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1015838068 0
# Node ID 78c2427665f00077eff894b82d26dfd90e317ce5
# Parent  7e937c00ff00c858fe8cbeead457ca0ca7241160
(show-paren-function): Move back in other direction
to verify the match is correct.

diff -r 7e937c00ff00 -r 78c2427665f0 lisp/paren.el
--- a/lisp/paren.el	Mon Mar 11 09:10:19 2002 +0000
+++ b/lisp/paren.el	Mon Mar 11 09:14:28 2002 +0000
@@ -155,6 +155,14 @@
 	      (condition-case ()
 		  (setq pos (scan-sexps (point) dir))
 		(error (setq pos t mismatch t)))
+	      ;; Move back the other way and verify we get back to the
+	      ;; starting point.  If not, these two parens don't really match.
+	      ;; Maybe the one at point is escaped and doesn't really count.
+	      (when (integerp pos)
+		(unless (condition-case ()
+			    (eq (point) (scan-sexps pos (- dir)))
+			  (error nil))
+		  (setq pos nil)))
 	      ;; If found a "matching" paren, see if it is the right
 	      ;; kind of paren to match the one we started at.
 	      (when (integerp pos)