From 7e1ddd454816d7eaa32ce1751eeffcfdb1cbb730 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 30 Oct 1994 02:19:14 +0000
Subject: [PATCH] (blink-matching-open): Do blink if an even number of quoting
 characters precede the close.

---
 lisp/simple.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index abf1020d21a..c824d364f8c 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2396,8 +2396,13 @@ in the mode line."
   "Move cursor momentarily to the beginning of the sexp before point."
   (interactive)
   (and (> (point) (1+ (point-min)))
-       (not (memq (char-syntax (char-after (- (point) 2))) '(?/ ?\\ )))
        blink-matching-paren
+       ;; Verify an even number of quoting characters precede the close.
+       (= 1 (logand 1 (- (point)
+			 (save-excursion
+			   (forward-char -1)
+			   (skip-syntax-backward "/\\")
+			   (point)))))
        (let* ((oldpos (point))
 	      (blinkpos)
 	      (mismatch))
-- 
2.39.5