From 0f6b9c324b62c759df945ad51d506c68fa0019d2 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Thu, 21 Jan 1993 22:43:16 +0000 Subject: [PATCH] (tags-loop-scan): Set default value to an error form. --- lisp/progmodes/etags.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 5c058d865e6..0598e00fcc5 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1060,7 +1060,9 @@ if the file was newly read in, the value is the filename." (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.")