# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1029793658 0
# Node ID d7669c85c9cb63e18df0f1c34ff9b87c7928896e
# Parent  ac5b720640e7a6f8996963caf0f1769f2f4ccfe0
(scan_keyword_or_put_char, write_c_args): Use `fn'
for the function name in the usage info.

diff -r ac5b720640e7 -r d7669c85c9cb lib-src/make-docfile.c
--- 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;