# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 790466223 0
# Node ID b58df8437ea124f7ef4a807b76b460acaa1a5217
# Parent  2ab3bd0288a9cd67947aee7aa171bd9512bea7a0
(etags-file-of-tag): Use a regexp search to find the file name,
allowing it to contain any char but a newline.

diff -r 2ab3bd0288a9 -r b58df8437ea1 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Wed Jan 18 20:52:48 1995 +0000
+++ b/lisp/progmodes/etags.el	Wed Jan 18 21:57:03 1995 +0000
@@ -980,10 +980,8 @@
 
 (defun etags-file-of-tag ()
   (save-excursion
-    (search-backward "\f\n")
-    (forward-char 2)
-    (buffer-substring (point)
-		      (progn (skip-chars-forward "^,") (point)))))
+    (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)))