Mercurial > emacs
changeset 981:49a539ef702f
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Wed, 12 Aug 1992 18:48:38 +0000 |
| parents | b62886fbf2a7 |
| children | 595f9517f205 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))