mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(blink-matching-open): Use it.

Browse Source
This commit is contained in:
Stefan Monnier 2005-04-19 18:12:23 +00:00
parent cdd8dc28f3
commit 98580e20de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/simple.el
View File

@ -4193,11 +4193,11 @@ when it is off screen)."
(setq blinkpos (scan-sexps oldpos -1)))
(error nil)))
(and blinkpos
(not (eq (car (syntax-after blinkpos)) 8)) ;Not syntax '$'.
(not (syntax-class (syntax-after blinkpos)) 8)) ;Not syntax '$'.
(setq matching-paren
(let ((syntax (syntax-after blinkpos)))
(and (consp syntax)
(eq (logand (car syntax) 255) 4)
(eq (syntax-class syntax) 4)
(cdr syntax)))
mismatch
(or (null matching-paren)