# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 713645318 0
# Node ID 49a539ef702fa4371201722dcbda2522dca3d196
# Parent  b62886fbf2a7ea2bfa882e19a812c4665cdb679b
*** empty log message ***

diff -r b62886fbf2a7 -r 49a539ef702f lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Wed Aug 12 18:37:35 1992 +0000
+++ b/lisp/progmodes/etags.el	Wed Aug 12 18:48:38 1992 +0000
@@ -459,7 +459,7 @@
 		 (find-tag-tag "Find tag: ")))
   (let ((local-find-tag-hook find-tag-hook))
     (if next-p
-	nil
+	(visit-tags-table-buffer 'same)
       (setq last-tag tagname)
       (visit-tags-table-buffer 'reset))
     (prog1
@@ -1102,8 +1102,12 @@
   "Perform tags completion on the text around point.
 Completes to the set of names listed in the current tags table.  
 The string to complete is chosen in the same way as the default
-for \\[find-tag] (which see).  See also `visit-tags-table-buffer'."
+for \\[find-tag] (which see)."
   (interactive)
+  (or tags-table-list
+      tags-file-name
+      (error (substitute-command-keys
+	      "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)))