# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 935958724 0
# Node ID 4868ac7f6a3fa5259650de01d71e76c0eee797af
# Parent  95301c74bdd988a1005c9fdd6371c4d1c1adec2a
(tags-loop-continue): After tags-loop-operate returns, force skip to next file.

diff -r 95301c74bdd9 -r 4868ac7f6a3f lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Sun Aug 29 20:27:40 1999 +0000
+++ b/lisp/progmodes/etags.el	Sun Aug 29 20:32:04 1999 +0000
@@ -1454,14 +1454,18 @@
 nil, we exit; otherwise we scan the next file."
   (interactive)
   (let (new
+	;; Non-nil means we have finished one file
+	;; and should not scan it again.
+	file-finished
 	(messaged nil))
     (while
 	(progn
 	  ;; Scan files quickly for the first or next interesting one.
-	  (while (or first-time
+	  (while (or first-time file-finished
 		     (save-restriction
 		       (widen)
 		       (not (eval tags-loop-scan))))
+	    (setq file-finished nil)
 	    (setq new (next-file first-time t))
 	    ;; If NEW is non-nil, we got a temp buffer,
 	    ;; and NEW is the file name.
@@ -1486,7 +1490,8 @@
 
 	  ;; Now operate on the file.
 	  ;; If value is non-nil, continue to scan the next file.
-	  (eval tags-loop-operate)))
+	  (eval tags-loop-operate))
+      (setq file-finished t))
     (and messaged
 	 (null tags-loop-operate)
 	 (message "Scanning file %s...found" buffer-file-name))))