From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 29 Sep 1996 22:58:23 +0000 (+0000)
Subject: (etags-file-of-tag): Fix looking-at regexp.
X-Git-Tag: emacs-20.1~3577
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e0b7560225e6390d19989c46d562e8cc97af469;p=emacs.git

(etags-file-of-tag): Fix looking-at regexp.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 62097047dd9..aefa78c33b1 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1000,9 +1000,7 @@ See documentation of variable `tags-file-name'."
 
 (defun etags-file-of-tag ()
   (save-excursion
-    (if (looking-at "./")
-        (re-search-forward "\\([^\n]+\\),[0-9]*\n")
-      (re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n"))
+    (re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n")
     (buffer-substring (match-beginning 1) (match-end 1))))