# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 797792765 0
# Node ID a096f82d87d9bf2c4ce3b3362e839fcf7e305019
# Parent  fd0a461e9c72768011936f2dd17a3f9f3b811508
(main): Check for trailing ", " before trying to delete it.

diff -r fd0a461e9c72 -r a096f82d87d9 lib-src/b2m.c
--- a/lib-src/b2m.c	Thu Apr 13 17:05:39 1995 +0000
+++ b/lib-src/b2m.c	Thu Apr 13 17:06:05 1995 +0000
@@ -131,7 +131,9 @@
 	      while (p = strtok (NULL, " ,\r\n\t"))
 		labels = concat (labels, p, ", ");
 
-	      labels[strlen (labels) - 2] = '\0';
+	      p = &labels[strlen (labels) - 2];
+	      if (*p == ',')
+		*p = '\0';
 	      printing = header = FALSE;
 	      labels_saved = TRUE;
 	      continue;