From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 13 Apr 1995 17:06:05 +0000 (+0000)
Subject: (main): Check for trailing ", " before trying to delete it.
X-Git-Tag: emacs-19.34~4435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a804c76c41ab524a16d4feb71fecd5880270742;p=emacs.git

(main): Check for trailing ", " before trying to delete it.
---

diff --git a/lib-src/b2m.c b/lib-src/b2m.c
index 416db6385ff..526d173acb6 100644
--- a/lib-src/b2m.c
+++ b/lib-src/b2m.c
@@ -131,7 +131,9 @@ main (argc, argv)
 	      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;