Mercurial > emacs

comparison lisp/simple.el @ 61670:c1e3fbdb9d71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(blink-matching-open): Use it.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 19 Apr 2005 18:12:23 +0000
parents 74f1c2b96d14
children c0bf74e7fc30
comparison
equal deleted inserted replaced
61669:c95f35bea727 61670:c1e3fbdb9d71
4191 (and parse-sexp-ignore-comments 4191 (and parse-sexp-ignore-comments
4192 (not blink-matching-paren-dont-ignore-comments)))) 4192 (not blink-matching-paren-dont-ignore-comments))))
4193 (setq blinkpos (scan-sexps oldpos -1))) 4193 (setq blinkpos (scan-sexps oldpos -1)))
4194 (error nil))) 4194 (error nil)))
4195 (and blinkpos 4195 (and blinkpos
4196 (not (eq (car (syntax-after blinkpos)) 8)) ;Not syntax '$'. 4196 (not (syntax-class (syntax-after blinkpos)) 8)) ;Not syntax '$'.
4197 (setq matching-paren 4197 (setq matching-paren
4198 (let ((syntax (syntax-after blinkpos))) 4198 (let ((syntax (syntax-after blinkpos)))
4199 (and (consp syntax) 4199 (and (consp syntax)
4200 (eq (logand (car syntax) 255) 4) 4200 (eq (syntax-class syntax) 4)
4201 (cdr syntax))) 4201 (cdr syntax)))
4202 mismatch 4202 mismatch
4203 (or (null matching-paren) 4203 (or (null matching-paren)
4204 (/= (char-after (1- oldpos)) 4204 (/= (char-after (1- oldpos))
4205 matching-paren)))) 4205 matching-paren))))