From ab13123aa8ca28e6347d662cd36023d845f9b5d5 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Wed, 12 Aug 1992 18:48:38 +0000 Subject: [PATCH] *** empty log message *** --- lisp/progmodes/etags.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 9b1cda9ac93..b4308f1a47b 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -459,7 +459,7 @@ See documentation of variable `tags-file-name'." (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 @@ see the doc of that variable if you want to add names to the list." "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)))