mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(etags-file-of-tag): Handle file name used as tag.

Browse source
This commit is contained in:
Richard M. Stallman 1995-02-07 21:00:28 +00:00
parent d2d9b86c1c
commit aa27fbb477
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/etags.el
View file

@ -997,9 +997,12 @@ See documentation of variable `tags-file-name'."
(defun etags-file-of-tag ()
(save-excursion
(re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n")
(if (looking-at "./")
(re-search-forward "\\([^\n]+\\),[0-9]*\n")
(re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n"))
(buffer-substring (match-beginning 1) (match-end 1))))
(defun etags-tags-completion-table ()
(let ((table (make-vector 511 0)))
(save-excursion