# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 800163010 0
# Node ID 4284a0c7971ac624772e2ef92c7b0fc36bdc1448
# Parent  34dbef732b27da7dc3bc38a771ff33f233954eff
(tags-loop-continue): Doc fix.
Reset NEW after visiting for real, so we don't clobber the buffer again.

diff -r 34dbef732b27 -r 4284a0c7971a lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Thu May 11 00:44:51 1995 +0000
+++ b/lisp/progmodes/etags.el	Thu May 11 03:30:10 1995 +0000
@@ -1307,11 +1307,12 @@
   "Continue last \\[tags-search] or \\[tags-query-replace] command.
 Used noninteractively with non-nil argument to begin such a command (the
 argument is passed to `next-file', which see).
-Two variables control the processing we do on each file:
-the value of `tags-loop-scan' is a form to be executed on each file
-to see if it is interesting (it returns non-nil if so)
-and `tags-loop-operate' is a form to execute to operate on an interesting file
-If the latter returns non-nil, we exit; otherwise we scan the next file."
+
+Two variables control the processing we do on each file: the value of
+`tags-loop-scan' is a form to be executed on each file to see if it is
+interesting (it returns non-nil if so) and `tags-loop-operate' is a form to
+evaluate to operate on an interesting file.  If the latter evaluates to
+nil, we exit; otherwise we scan the next file."
   (interactive)
   (let (new
 	(messaged nil))
@@ -1338,6 +1339,7 @@
 	      (let ((pos (point)))
 		(erase-buffer)
 		(set-buffer (find-file-noselect new))
+		(setq new nil)		;No longer in a temp buffer.
 		(widen)
 		(goto-char pos)))