# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 727656196 0
# Node ID 60685747963c294c55c4bff6e2fd27e468198129
# Parent  1059b972916c1d974b966432231ec4194e8c5d7b
(tags-loop-scan): Set default value to an error form.

diff -r 1059b972916c -r 60685747963c lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Thu Jan 21 22:36:48 1993 +0000
+++ b/lisp/progmodes/etags.el	Thu Jan 21 22:43:16 1993 +0000
@@ -1060,7 +1060,9 @@
 (defvar tags-loop-operate nil
   "Form for `tags-loop-continue' to eval to change one file.")
 
-(defvar tags-loop-scan nil
+(defvar tags-loop-scan
+  '(error (substitute-command-keys
+	   "No \\[tags-search] or \\[tags-query-replace] in progress."))
   "Form for `tags-loop-continue' to eval to scan one file.
 If it returns non-nil, this file needs processing by evalling
 \`tags-loop-operate'.  Otherwise, move on to the next file.")