# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782446765 0
# Node ID 2a5d9c96525fc70b1810f2a0062641b830a8086f
# Parent  35cdd4523abfa37c2923e0a08f8a86dd105e24c2
(etags-tags-table-files, etags-tags-included-tables):
Search backwards for the comma in case the file name contains one.

diff -r 35cdd4523abf -r 2a5d9c96525f lisp/progmodes/etags.el
--- 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)))