Mercurial > emacs
changeset 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 | 2ab3bd0288a9 |
| children | 67966e17d9d1 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
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)))