# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 717244406 0
# Node ID de54d705652f5a3014b42c823511ae92287c590b
# Parent  56d315ca10ee1e93ecac0fa466d1f73c06c75e55
*** empty log message ***

diff -r 56d315ca10ee -r de54d705652f lib-src/make-docfile.c
--- a/lib-src/make-docfile.c	Wed Sep 23 04:21:23 1992 +0000
+++ b/lib-src/make-docfile.c	Wed Sep 23 10:33:26 1992 +0000
@@ -143,36 +143,36 @@
      char *buf;
      int minargs, maxargs;
 {
-  register int c;
-  register char *p = buf;
+  register char *p;
   int space = 0;
 
   fprintf (out, "arguments: ");
 
-  while (*p)
+  for (p = buf; *p; p++)
     {
-      c = *p++;
-      if (c == ',')
+      if (*p == ',' || p == buf)
 	{
-	  minargs--;
-	  maxargs--;
 	  if (!space)
 	    putc (' ', out);
 	  if (minargs == 0 && maxargs > 0)
 	    fprintf (out, "&optional ");
 	  space = 1;
+
+	  minargs--;
+	  maxargs--;
+
 	  continue;
 	}
-      else if (c == ' ' && space)
+      else if (*p == ' ' && space)
 	continue;
-      space = (c == ' ');
+      space = (*p == ' ');
 
       /* Print the C arguments as they would appear in Elisp;
 	 print underscores as hyphens.  */
-      if (c == '_')
+      if (*p == '_')
 	putc ('-', out);
       else
-	putc (c, out);
+	putc (*p, out);
     }
   putc ('\n', out);
 }