Mercurial > emacs
changeset 1808:60685747963c
(tags-loop-scan): Set default value to an error form.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Thu, 21 Jan 1993 22:43:16 +0000 |
| parents | 1059b972916c |
| children | 69b3ee873a9b |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.")