mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

(blink-matching-open): Allow new paren-class info.

Browse Source
This commit is contained in:
Stefan Monnier 2005-11-20 18:08:55 +00:00
parent 1793ac759f
commit 1c4b7278d6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/simple.el
View File

@ -4316,7 +4316,11 @@ If nil, search stops at the beginning of the accessible portion of the buffer."
(eq (syntax-class syntax) 4)
(cdr syntax)))))
(cond
((not (eq matching-paren (char-before oldpos)))
((not (or (eq matching-paren (char-before oldpos))
;; The cdr might hold a new paren-class info rather than
;; a matching-char info, in which case the two CDRs
;; should match.
(eq matching-paren (cdr (syntax-after oldpos)))))
(message "Mismatched parentheses"))
((not blinkpos)
(if (not blink-matching-paren-distance)