mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

(scan_keyword_or_put_char, write_c_args): Use `fn'

Browse source 
for the function name in the usage info.
This commit is contained in:
Stefan Monnier 2002-08-19 21:47:38 +00:00
parent f63f0981b6
commit 56cf516205
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib-src/make-docfile.c
View file

@ -290,7 +290,17 @@ scan_keyword_or_put_char (ch, state)
ch = getc (state->in_file); ch = getc (state->in_file);
while (ch == ' ' || ch == '\n'); 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); ungetc (ch, state->in_file);
} }
} }
@ -425,7 +435,7 @@ write_c_args (out, func, buf, minargs, maxargs)
int just_spaced = 0; int just_spaced = 0;
int need_space = 1; int need_space = 1;
fprintf (out, "(%s", func); fprintf (out, "(fn");
if (*buf == '(') if (*buf == '(')
++buf; ++buf;