Mercurial > emacs
changeset 18623:fc78e7f26a64
(next-file, tags-loop-scan): Fix error message.
(visit-tags-table-buffer, complete-tag): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jul 1997 00:54:32 +0000 |
| parents | fe2070df967e |
| children | ecf30a8391d5 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Sat Jul 05 00:25:53 1997 +0000 +++ b/lisp/progmodes/etags.el Sat Jul 05 00:54:32 1997 +0000 @@ -420,8 +420,8 @@ (or tags-file-name (error "%s" (substitute-command-keys - (concat "No tags table in use! " - "Use \\[visit-tags-table] to select one."))))) + (concat "No tags table in use; " + "use \\[visit-tags-table] to select one"))))) ((eq t cont) ;; Find the next table. @@ -1302,7 +1302,7 @@ (and novisit (get-buffer " *next-file*") (kill-buffer " *next-file*")) - (error "All files processed.")) + (error "All files processed")) (let* ((next (car next-file-list)) (new (not (get-file-buffer next)))) ;; Advance the list before trying to find the file. @@ -1324,7 +1324,7 @@ (defvar tags-loop-scan '(error "%s" (substitute-command-keys - "No \\[tags-search] or \\[tags-query-replace] in progress.")) + "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.") @@ -1573,7 +1573,7 @@ tags-file-name (error "%s" (substitute-command-keys - "No tags table loaded. Try \\[visit-tags-table]."))) + "No tags table loaded; try \\[visit-tags-table]"))) (let ((pattern (funcall (or find-tag-default-function (get major-mode 'find-tag-default-function) 'find-tag-default)))