Mercurial > emacs
changeset 46958:d7669c85c9cb
(scan_keyword_or_put_char, write_c_args): Use `fn'
for the function name in the usage info.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 19 Aug 2002 21:47:38 +0000 |
| parents | ac5b720640e7 |
| children | 2566b90da6fc |
| files | lib-src/make-docfile.c |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lib-src/make-docfile.c Mon Aug 19 21:23:08 2002 +0000 +++ b/lib-src/make-docfile.c Mon Aug 19 21:47:38 2002 +0000 @@ -290,7 +290,17 @@ ch = getc (state->in_file); while (ch == ' ' || ch == '\n'); - /* Put back the non-whitespace character. */ + /* Output the open-paren we just read. */ + put_char (ch, state); + + /* Skip the function name and replace it with `fn'. */ + do + ch = getc (state->in_file); + while (ch != ' ' && ch != ')'); + put_char ('f', state); + put_char ('n', state); + + /* Put back the last character. */ ungetc (ch, state->in_file); } } @@ -425,7 +435,7 @@ int just_spaced = 0; int need_space = 1; - fprintf (out, "(%s", func); + fprintf (out, "(fn"); if (*buf == '(') ++buf;