# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 717736475 0
# Node ID 5788741d1eaab4c2fe1c8de4ebb6fe4c2595c5ae
# Parent  761b9b4fd3ed5b7fe7f8d569121330cad8d9bc0e
entered into RCS

diff -r 761b9b4fd3ed -r 5788741d1eaa lib-src/make-docfile.c
--- a/lib-src/make-docfile.c	Tue Sep 29 01:08:33 1992 +0000
+++ b/lib-src/make-docfile.c	Tue Sep 29 03:14:35 1992 +0000
@@ -144,37 +144,48 @@
      int minargs, maxargs;
 {
   register char *p;
-  int space = 0;
+  int in_ident = 0;
+  int just_spaced = 0;
 
   fprintf (out, "arguments: ");
 
   for (p = buf; *p; p++)
     {
-      if (*p == ',' || p == buf)
+      char c = *p;
+
+      /* Notice when we start printing a new identifier.  */
+      if ((('A' <= c && c <= 'Z')
+	   || ('a' <= c && c <= 'z')
+	   || ('0' <= c && c <= '9')
+	   || c == '_')
+	  != in_ident)
 	{
-	  if (!space)
-	    putc (' ', out);
-	  if (minargs == 0 && maxargs > 0)
-	    fprintf (out, "&optional ");
-	  space = 1;
+	  if (!in_ident)
+	    {
+	      in_ident = 1;
 
-	  minargs--;
-	  maxargs--;
+	      if (minargs == 0 && maxargs > 0)
+		fprintf (out, "&optional ");
+	      just_spaced = 1;
 
-	  continue;
+	      minargs--;
+	      maxargs--;
+	    }
+	  else
+	    in_ident = 0;
 	}
-      else if (*p == ' ' && space)
-	continue;
-      space = (*p == ' ');
 
-      /* Print the C arguments as they would appear in Elisp;
-	 print underscores as hyphens.  */
-      if (*p == '_')
-	putc ('-', out);
-      else
-	putc (*p, out);
+      /* Print the C argument list as it would appear in lisp:
+	 print underscores as hyphens, and print commas as spaces.
+	 Collapse adjacent spaces into one.  */
+      if (c == '_') c = '-';
+      if (c == ',') c = ' ';
+
+      if (c != ' ' || ! just_spaced)
+	putc (c, out);
+
+      just_spaced = (c == ' ');
     }
-  putc ('\n', out);
 }
 
 /* Read through a c file.  If a .o file is named,