/[emacs]/emacs/lisp/textmodes/tex-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/tex-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.123.2.7 by miles, Tue Jul 6 09:23:49 2004 UTC revision 1.123.2.8 by miles, Sat Sep 4 09:26:23 2004 UTC
# Line 1141  on the line for the invalidity you want Line 1141  on the line for the invalidity you want
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.
# Line 1459  Mark is left at original location." Line 1462  Mark is left at original location."
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)))))
# Line 1928  for the error messages." Line 1931  for the error messages."
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

Legend:
Removed from v.1.123.2.7  
changed lines
  Added in v.1.123.2.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26