Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
10457:2ab3bd0288a9 | 10458:b58df8437ea1 |
---|---|
978 ;; Use eq instead of = in case char-after returns nil. | 978 ;; Use eq instead of = in case char-after returns nil. |
979 (eq (char-after 1) ?\f)) | 979 (eq (char-after 1) ?\f)) |
980 | 980 |
981 (defun etags-file-of-tag () | 981 (defun etags-file-of-tag () |
982 (save-excursion | 982 (save-excursion |
983 (search-backward "\f\n") | 983 (re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n") |
984 (forward-char 2) | 984 (buffer-substring (match-beginning 1) (match-end 1)))) |
985 (buffer-substring (point) | |
986 (progn (skip-chars-forward "^,") (point))))) | |
987 | 985 |
988 (defun etags-tags-completion-table () | 986 (defun etags-tags-completion-table () |
989 (let ((table (make-vector 511 0))) | 987 (let ((table (make-vector 511 0))) |
990 (save-excursion | 988 (save-excursion |
991 (goto-char (point-min)) | 989 (goto-char (point-min)) |