1145 |
(if no-matches |
(if no-matches |
1146 |
(insert "None!\n")) |
(insert "None!\n")) |
1147 |
(if (interactive-p) |
(if (interactive-p) |
1148 |
(message "%s mismatch%s found" |
(message (cond (no-matches "No mismatches found") |
1149 |
(if no-matches "No" num-matches) |
((= num-matches 1) "1 mismatch found") |
1150 |
(if (> num-matches 1) "es" "")))))))) |
(t "%d mismatches found")) |
1151 |
|
num-matches))))))) |
1152 |
|
|
1153 |
(defun tex-validate-region (start end) |
(defun tex-validate-region (start end) |
1154 |
"Check for mismatched braces or $'s in region. |
"Check for mismatched braces or $'s in region. |