(next-file, tags-loop-scan): Fix error message.

(visit-tags-table-buffer, complete-tag): Likewise.

1 files changed, 5 insertions, 5 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 47405d43df7..8b0cca71e35 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -420,8 +420,8 @@ Returns t if it visits a tags table, or nil if there are no more in the list."
 	 (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 @@ if the file was newly read in, the value is the filename."
     (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 @@ if the file was newly read in, the value is the filename."
 (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 @@ for \\[find-tag] (which see)."
       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)))