Mercurial > emacs
comparison lisp/progmodes/etags.el @ 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 | 7fc396d27130 |
comparison
equal
deleted
inserted
replaced
| 1807:1059b972916c | 1808:60685747963c |
|---|---|
| 1058 new)) | 1058 new)) |
| 1059 | 1059 |
| 1060 (defvar tags-loop-operate nil | 1060 (defvar tags-loop-operate nil |
| 1061 "Form for `tags-loop-continue' to eval to change one file.") | 1061 "Form for `tags-loop-continue' to eval to change one file.") |
| 1062 | 1062 |
| 1063 (defvar tags-loop-scan nil | 1063 (defvar tags-loop-scan |
| 1064 '(error (substitute-command-keys | |
| 1065 "No \\[tags-search] or \\[tags-query-replace] in progress.")) | |
| 1064 "Form for `tags-loop-continue' to eval to scan one file. | 1066 "Form for `tags-loop-continue' to eval to scan one file. |
| 1065 If it returns non-nil, this file needs processing by evalling | 1067 If it returns non-nil, this file needs processing by evalling |
| 1066 \`tags-loop-operate'. Otherwise, move on to the next file.") | 1068 \`tags-loop-operate'. Otherwise, move on to the next file.") |
| 1067 | 1069 |
| 1068 ;;;###autoload | 1070 ;;;###autoload |