aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/simple.el7
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."
2396 "Move cursor momentarily to the beginning of the sexp before point." 2396 "Move cursor momentarily to the beginning of the sexp before point."
2397 (interactive) 2397 (interactive)
2398 (and (> (point) (1+ (point-min))) 2398 (and (> (point) (1+ (point-min)))
2399 (not (memq (char-syntax (char-after (- (point) 2))) '(?/ ?\\ )))
2400 blink-matching-paren 2399 blink-matching-paren
2400 ;; Verify an even number of quoting characters precede the close.
2401 (= 1 (logand 1 (- (point)
2402 (save-excursion
2403 (forward-char -1)
2404 (skip-syntax-backward "/\\")
2405 (point)))))
2401 (let* ((oldpos (point)) 2406 (let* ((oldpos (point))
2402 (blinkpos) 2407 (blinkpos)
2403 (mismatch)) 2408 (mismatch))