diff options
| -rw-r--r-- | lisp/simple.el | 7 |
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)) |