1141 |
'occur-target tem))))) |
'occur-target tem))))) |
1142 |
(goto-char prev-end)))) |
(goto-char prev-end)))) |
1143 |
(with-current-buffer standard-output |
(with-current-buffer standard-output |
1144 |
(if (eq num-matches 0) |
(let ((no-matches (zerop num-matches))) |
1145 |
(insert "None!\n")) |
(if no-matches |
1146 |
(if (interactive-p) |
(insert "None!\n")) |
1147 |
(message "%d mismatches found" num-matches)))))) |
(if (interactive-p) |
1148 |
|
(message "%s mismatch%s found" |
1149 |
|
(if no-matches "No" num-matches) |
1150 |
|
(if (> num-matches 1) "es" "")))))))) |
1151 |
|
|
1152 |
(defun tex-validate-region (start end) |
(defun tex-validate-region (start end) |
1153 |
"Check for mismatched braces or $'s in region. |
"Check for mismatched braces or $'s in region. |
1462 |
nil) |
nil) |
1463 |
(let ((proc (get-process "tex-shell"))) |
(let ((proc (get-process "tex-shell"))) |
1464 |
(set-process-sentinel proc 'tex-shell-sentinel) |
(set-process-sentinel proc 'tex-shell-sentinel) |
1465 |
(process-kill-without-query proc) |
(set-process-query-on-exit-flag proc nil) |
1466 |
(tex-shell) |
(tex-shell) |
1467 |
(while (zerop (buffer-size)) |
(while (zerop (buffer-size)) |
1468 |
(sleep-for 1))))) |
(sleep-for 1))))) |
1931 |
(re-search-forward |
(re-search-forward |
1932 |
"^l\\.\\([0-9]+\\) \\(\\.\\.\\.\\)?\\(.*\\)$" nil 'move)) |
"^l\\.\\([0-9]+\\) \\(\\.\\.\\.\\)?\\(.*\\)$" nil 'move)) |
1933 |
(let* ((this-error (copy-marker begin-of-error)) |
(let* ((this-error (copy-marker begin-of-error)) |
1934 |
(linenum (string-to-int (match-string 1))) |
(linenum (string-to-number (match-string 1))) |
1935 |
(error-text (regexp-quote (match-string 3))) |
(error-text (regexp-quote (match-string 3))) |
1936 |
(filename |
(filename |
1937 |
(save-excursion |
(save-excursion |