# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868064072 0
# Node ID fc78e7f26a640013bfbb078caf76f521aac9270f
# Parent  fe2070df967e048ceeebc5bc2a13fed000273572
(next-file, tags-loop-scan): Fix error message.
(visit-tags-table-buffer, complete-tag): Likewise.

diff -r fe2070df967e -r fc78e7f26a64 lisp/progmodes/etags.el
--- 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)))