1190 |
(forward-sexp 1)) |
(forward-sexp 1)) |
1191 |
;; Now check that like matches like. |
;; Now check that like matches like. |
1192 |
(goto-char start) |
(goto-char start) |
1193 |
(while (progn (skip-syntax-forward "^(") |
(while (re-search-forward "\\s(" nil t) |
1194 |
(not (eobp))) |
(save-excursion |
1195 |
(let ((match (matching-paren (following-char)))) |
(let ((pos (match-beginning 0))) |
1196 |
(save-excursion |
(goto-char pos) |
1197 |
(forward-sexp 1) |
(forward-sexp 1) |
1198 |
(or (= (preceding-char) match) |
(or (eq (preceding-char) (cdr (syntax-after pos))) |
1199 |
(error "Mismatched parentheses")))) |
(eq (char-after pos) (cdr (syntax-after (1- (point))))) |
1200 |
(forward-char 1))) |
(error "Mismatched parentheses")))))) |
1201 |
(error |
(error |
1202 |
(skip-syntax-forward " .>") |
(skip-syntax-forward " .>") |
1203 |
(setq failure-point (point))))) |
(setq failure-point (point))))) |