Mercurial > emacs
comparison lisp/simple.el @ 67092:e2a1dbb7d8f3
(blink-matching-open): Fix off-by-one in last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 23 Nov 2005 15:05:18 +0000 |
| parents | ac8622e9be6d |
| children | 23ddbc106655 |
comparison
equal
deleted
inserted
replaced
| 67091:0f5d07998803 | 67092:e2a1dbb7d8f3 |
|---|---|
| 4318 (cond | 4318 (cond |
| 4319 ((not (or (eq matching-paren (char-before oldpos)) | 4319 ((not (or (eq matching-paren (char-before oldpos)) |
| 4320 ;; The cdr might hold a new paren-class info rather than | 4320 ;; The cdr might hold a new paren-class info rather than |
| 4321 ;; a matching-char info, in which case the two CDRs | 4321 ;; a matching-char info, in which case the two CDRs |
| 4322 ;; should match. | 4322 ;; should match. |
| 4323 (eq matching-paren (cdr (syntax-after oldpos))))) | 4323 (eq matching-paren (cdr (syntax-after (1- oldpos)))))) |
| 4324 (message "Mismatched parentheses")) | 4324 (message "Mismatched parentheses")) |
| 4325 ((not blinkpos) | 4325 ((not blinkpos) |
| 4326 (if (not blink-matching-paren-distance) | 4326 (if (not blink-matching-paren-distance) |
| 4327 (message "Unmatched parenthesis"))) | 4327 (message "Unmatched parenthesis"))) |
| 4328 ((pos-visible-in-window-p blinkpos) | 4328 ((pos-visible-in-window-p blinkpos) |