mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Roland McGrath 1992-08-12 18:48:38 +00:00
parent 1da5680041
commit ab13123aa8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/progmodes/etags.el
View File

@ -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)))