diff options
| author | Roland McGrath <roland@gnu.org> | 1993-01-21 22:43:16 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-01-21 22:43:16 +0000 |
| commit | 0f6b9c324b62c759df945ad51d506c68fa0019d2 (patch) | |
| tree | 6b32588d92e0d0d03d20417a0eeeb0045cc9a868 /lisp | |
| parent | 2ae6a918b98cba04ebd3e0b3544f955324114eb0 (diff) | |
| download | emacs-0f6b9c324b62c759df945ad51d506c68fa0019d2.tar.gz | |
(tags-loop-scan): Set default value to an error form.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
1 files changed, 3 insertions, 1 deletions
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.") |