(blink-matching-open): Do blink if an even number of

quoting characters precede the close.

1 files changed, 6 insertions, 1 deletions

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))