From 003274a0575fb52458b1915ef602c7308cdf2196 Mon Sep 17 00:00:00 2001
From: John Paul Wallington <jpw@pobox.com>
Date: Wed, 25 Aug 2004 19:05:24 +0000
Subject: [PATCH] (tex-validate-buffer): Distinguish between 0, 1, and many
 mismatches. (tex-start-shell): Use `set-process-query-on-exit-flag'.

---
 lisp/ChangeLog             |  4 ++++
 lisp/textmodes/tex-mode.el | 15 +++++++++------
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16fddac9015..a52bb001fea 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2004-08-25  John Paul Wallington  <jpw@gnu.org>
 
+	* textmodes/tex-mode.el (tex-validate-buffer): Distinguish between
+	0, 1, and many mismatches in message.
+	(tex-start-shell): Use `set-process-query-on-exit-flag'.
+
 	* ielm.el (ielm-tab, ielm-complete-symbol): Doc fix.
 	(inferior-emacs-lisp-mode): Use	`set-process-query-on-exit-flag'.
 
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 28bf9f6cf28..115dd6f88f0 100644
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1141,10 +1141,13 @@ on the line for the invalidity you want to see."
 					 'occur-target tem)))))
 	    (goto-char prev-end))))
       (with-current-buffer standard-output
-	(if (eq num-matches 0)
-	    (insert "None!\n"))
-	(if (interactive-p)
-	    (message "%d mismatches found" num-matches))))))
+	(let ((no-matches (zerop num-matches)))
+	  (if no-matches
+	      (insert "None!\n"))
+	  (if (interactive-p)
+	      (message "%s mismatch%s found"
+		       (if no-matches "No" num-matches)
+		       (if (> num-matches 1) "es" ""))))))))
 
 (defun tex-validate-region (start end)
   "Check for mismatched braces or $'s in region.
@@ -1459,7 +1462,7 @@ Mark is left at original location."
        nil)
     (let ((proc (get-process "tex-shell")))
       (set-process-sentinel proc 'tex-shell-sentinel)
-      (process-kill-without-query proc)
+      (set-process-query-on-exit-flag proc nil)
       (tex-shell)
       (while (zerop (buffer-size))
 	(sleep-for 1)))))
@@ -1928,7 +1931,7 @@ for the error messages."
 		(re-search-forward
 		 "^l\\.\\([0-9]+\\) \\(\\.\\.\\.\\)?\\(.*\\)$" nil 'move))
       (let* ((this-error (copy-marker begin-of-error))
-	     (linenum (string-to-int (match-string 1)))
+	     (linenum (string-to-number (match-string 1)))
 	     (error-text (regexp-quote (match-string 3)))
 	     (filename
 	      (save-excursion
-- 
2.39.2