mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases 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
Show Stats 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