Mercurial > emacs
changeset 35293:39b2af5f7ee2
(write_c_args): Print newlines as spaces.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 13 Jan 2001 16:49:22 +0000 |
| parents | a0b80b4a7fa1 |
| children | e6301582e693 |
| files | lib-src/make-docfile.c |
| diffstat | 1 files changed, 10 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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; } }