Mercurial > emacs
diff lisp/progmodes/etags.el @ 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 | 6cd679419a9c |
children | a5bd0b6b080e |
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)))