Mercurial > emacs
diff lisp/progmodes/etags.el @ 10458:b58df8437ea1
(etags-file-of-tag): Use a regexp search to find the file name,
allowing it to contain any char but a newline.
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Wed, 18 Jan 1995 21:57:03 +0000 |
parents | c37ee605ba79 |
children | 32beb7b6dbf7 |
line wrap: on
line diff
--- 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)))