# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 717541217 0
# Node ID 92554bb95d5155cd0fb90fde39a7af4f635020e8
# Parent  467833df795bca7565042e4da0b024d36e3a80bc
(diff): Don't print echo area message.
(diff-parse-differences): Always add `done' to message, at end.
New local num-loci-found counts the loci.

diff -r 467833df795b -r 92554bb95d51 lisp/diff.el
--- a/lisp/diff.el	Sat Sep 26 08:15:35 1992 +0000
+++ b/lisp/diff.el	Sat Sep 26 21:00:17 1992 +0000
@@ -113,6 +113,7 @@
 			    compilation-error-list)))))
 
 	(found-desired nil)
+	(num-loci-found 0)
 	g)
 
     (while (and (not found-desired)
@@ -132,18 +133,19 @@
       (if (nth 2 g)			;NEW-IDX
 	  (funcall new-error diff-new-file (nth 2 g)))
 
+      (setq num-loci-found (1+ num-loci-found))
       (if (or (and find-at-least
-		   (>= compilation-num-errors-found find-at-least))
+		   (>= num-loci-found find-at-least))
 	      (and limit-search (>= (point) limit-search)))
-	      ;; We have found as many new errors as the user wants,
+	      ;; We have found as many new loci as the user wants,
 	      ;; or the user wanted a specific diff, and we're past it.
 	  (setq found-desired t)))
     (if found-desired
 	(setq compilation-parsing-end (point))
       ;; Set to point-max, not point, so we don't perpetually
       ;; parse the last bit of text when it isn't a diff header.
-      (setq compilation-parsing-end (point-max))
-      (message "Parsing differences...done")))
+      (setq compilation-parsing-end (point-max)))
+    (message "Parsing differences...done"))
   (setq compilation-error-list (nreverse compilation-error-list)))
 
 ;;;###autoload
@@ -178,7 +180,6 @@
 			       diff-switches
 			     (mapconcat 'identity diff-switches " "))))
       nil)))
-  (message "Comparing files %s %s..." new old)
   (setq new (expand-file-name new)
 	old (expand-file-name old))
   (let ((old-alt (file-local-copy old))