diff options
| author | Richard M. Stallman <[email protected]> | 1995-02-07 21:00:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1995-02-07 21:00:28 +0000 |
| commit | aa27fbb477887cb6e22a2d22e0511664d9b88d2d (patch) | |
| tree | 7788969ea23d915d5a8ec2eaeb7de64068f811da /lisp/progmodes | |
| parent | d2d9b86c1c7c6c9e6b821ef492974e3ff5b4802f (diff) | |
(etags-file-of-tag): Handle file name used as tag.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/etags.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index c0b04613ef..e572d3361f 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -997,9 +997,12 @@ See documentation of variable `tags-file-name'." (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 |