From 6be7b1272d4ff15bb13fbd3110217777706d0f6a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 11 Mar 2002 09:14:28 +0000 Subject: [PATCH] (show-paren-function): Move back in other direction to verify the match is correct. --- lisp/paren.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/paren.el b/lisp/paren.el index fa68e26203f..000854a01d2 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -155,6 +155,14 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." (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) -- 2.39.2