Commit aa27fbb4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent d2d9b86c
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment