Mercurial > emacs
comparison lisp/progmodes/etags.el @ 10680:69cbb0d5671d
(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 | 32beb7b6dbf7 |
| children | 72f527d22fe1 |
comparison
equal
deleted
inserted
replaced
| 10679:aec6cbccf909 | 10680:69cbb0d5671d |
|---|---|
| 995 ;; Use eq instead of = in case char-after returns nil. | 995 ;; Use eq instead of = in case char-after returns nil. |
| 996 (eq (char-after 1) ?\f)) | 996 (eq (char-after 1) ?\f)) |
| 997 | 997 |
| 998 (defun etags-file-of-tag () | 998 (defun etags-file-of-tag () |
| 999 (save-excursion | 999 (save-excursion |
| 1000 (re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n") | 1000 (if (looking-at "./") |
| 1001 (re-search-forward "\\([^\n]+\\),[0-9]*\n") | |
| 1002 (re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n")) | |
| 1001 (buffer-substring (match-beginning 1) (match-end 1)))) | 1003 (buffer-substring (match-beginning 1) (match-end 1)))) |
| 1004 | |
| 1002 | 1005 |
| 1003 (defun etags-tags-completion-table () | 1006 (defun etags-tags-completion-table () |
| 1004 (let ((table (make-vector 511 0))) | 1007 (let ((table (make-vector 511 0))) |
| 1005 (save-excursion | 1008 (save-excursion |
| 1006 (goto-char (point-min)) | 1009 (goto-char (point-min)) |