Mercurial > emacs

changeset 10680:69cbb0d5671d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(etags-file-of-tag): Handle file name used as tag.
author Richard M. Stallman <rms@gnu.org>
date Tue, 07 Feb 1995 21:00:28 +0000
parents aec6cbccf909
children 14d924cf1114
files lisp/progmodes/etags.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Tue Feb 07 08:00:33 1995 +0000
+++ b/lisp/progmodes/etags.el	Tue Feb 07 21:00:28 1995 +0000
@@ -997,9 +997,12 @@
 
 (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