Mercurial > emacs
changeset 9749:b2157de450ca
(blink-matching-open): Do blink if an even number of
quoting characters precede the close.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 30 Oct 1994 02:19:14 +0000 |
| parents | 45559582aa9d |
| children | 00490d140f2b |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sun Oct 30 00:26:39 1994 +0000 +++ b/lisp/simple.el Sun Oct 30 02:19:14 1994 +0000 @@ -2396,8 +2396,13 @@ "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))