Mercurial > emacs
changeset 9579:2a5d9c96525f
(etags-tags-table-files, etags-tags-included-tables):
Search backwards for the comma in case the file name contains one.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 18 Oct 1994 02:19:25 +0000 |
| parents | 35cdd4523abf |
| children | bcc9342cf633 |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/etags.el Tue Oct 18 01:45:10 1994 +0000 +++ b/lisp/progmodes/etags.el Tue Oct 18 02:19:25 1994 +0000 @@ -1114,10 +1114,11 @@ (goto-char (point-min)) (while (search-forward "\f\n" nil t) (setq beg (point)) - (skip-chars-forward "^,\n") - (or (looking-at ",include$") + (end-of-line) + (skip-chars-backward "^," beg) + (or (looking-at "include$") ;; Expand in the default-directory of the tags table buffer. - (setq files (cons (expand-file-name (buffer-substring beg (point))) + (setq files (cons (expand-file-name (buffer-substring beg (1- (point)))) files)))) (nreverse files))) @@ -1127,10 +1128,11 @@ (goto-char (point-min)) (while (search-forward "\f\n" nil t) (setq beg (point)) - (skip-chars-forward "^,\n") - (if (looking-at ",include$") + (end-of-line) + (skip-chars-backward "^," beg) + (if (looking-at "include$") ;; Expand in the default-directory of the tags table buffer. - (setq files (cons (expand-file-name (buffer-substring beg (point))) + (setq files (cons (expand-file-name (buffer-substring beg (1- (point)))) files)))) (nreverse files)))