From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 7 Feb 1995 21:00:28 +0000 (+0000)
Subject: (etags-file-of-tag): Handle file name used as tag.
X-Git-Tag: emacs-19.34~5178
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa27fbb477887cb6e22a2d22e0511664d9b88d2d;p=emacs.git

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

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index c0b04613ef0..e572d3361f7 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -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