Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
quoting characters precede the close.
This commit is contained in:
Richard M. Stallman 1994-10-30 02:19:14 +00:00
parent 4612426413
commit 7e1ddd4548
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/simple.el
View file

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