Commit 291c7e74 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(write_c_args): Print newlines as spaces.

parent 1c0e6fa4
2001-01-13 Gerd Moellmann <gerd@gnu.org>
* make-docfile.c (write_c_args): Print newlines as spaces.
2001-01-06 Andrew Innes <andrewi@gnu.org>
* makefile.w32-in (clean): Delete $(COMPILER_TEMP_FILES) instead
......
/* 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 @@ write_c_args (out, func, buf, minargs, maxargs)
}
/* 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 @@ write_c_args (out, func, buf, minargs, maxargs)
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 @@ write_c_args (out, func, buf, minargs, maxargs)
putc (c, out);
}
just_spaced = (c == ' ');
just_spaced = c == ' ';
need_space = 0;
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment