# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 979404562 0
# Node ID 39b2af5f7ee23c5b4195e43411fdb4a074e5c25d
# Parent  a0b80b4a7fa13af5ab8e54e54bf6d67bd19bb4fa
(write_c_args): Print newlines as spaces.

diff -r a0b80b4a7fa1 -r 39b2af5f7ee2 lib-src/make-docfile.c
--- a/lib-src/make-docfile.c	Sat Jan 13 07:14:02 2001 +0000
+++ b/lib-src/make-docfile.c	Sat Jan 13 16:49:22 2001 +0000
@@ -1,5 +1,6 @@
 /* Generate doc-string file for GNU Emacs from source files.
-   Copyright (C) 1985, 86, 92, 93, 94, 97, 1999 Free Software Foundation, Inc.
+   Copyright (C) 1985, 86, 92, 93, 94, 97, 1999, 2000, 2001
+   Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -300,10 +301,12 @@
 	}
 
       /* 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 = ' ';
+	 print underscores as hyphens, and print commas and newlines
+	 as spaces.  Collapse adjacent spaces into one.  */
+      if (c == '_')
+	c = '-';
+      else if (c == ',' || c == '\n')
+	c = ' ';
 
       /* In C code, `default' is a reserved word, so we spell it
 	 `defalt'; unmangle that here.  */
@@ -319,7 +322,7 @@
 	  in_ident = 0;
 	  just_spaced = 0;
 	}
-      else if (c != ' ' || ! just_spaced)
+      else if (c != ' ' || !just_spaced)
 	{
 	  if (c >= 'a' && c <= 'z')
 	    /* Upcase the letter.  */
@@ -327,7 +330,7 @@
 	  putc (c, out);
 	}
 
-      just_spaced = (c == ' ');
+      just_spaced = c == ' ';
       need_space = 0;
     }
 }