From 5e0b7560225e6390d19989c46d562e8cc97af469 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 29 Sep 1996 22:58:23 +0000 Subject: [PATCH] (etags-file-of-tag): Fix looking-at regexp. --- lisp/progmodes/etags.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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)))) -- 2.39.5