[Emacs-diffs] Changes to emacs/lib-src/make-docfile.c

[Stefan Monnier]

Index: emacs/lib-src/make-docfile.c
diff -c emacs/lib-src/make-docfile.c:1.51 emacs/lib-src/make-docfile.c:1.52
*** emacs/lib-src/make-docfile.c:1.51   Mon Jul 15 15:59:53 2002
--- emacs/lib-src/make-docfile.c        Mon Aug 19 17:47:38 2002
***************
*** 290,296 ****
            ch = getc (state->in_file);
          while (ch == ' ' || ch == '\n');
  
!         /* Put back the non-whitespace character.  */
          ungetc (ch, state->in_file);
        }
      }
--- 290,306 ----
            ch = getc (state->in_file);
          while (ch == ' ' || ch == '\n');
  
!         /* 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,431 ****
    int just_spaced = 0;
    int need_space = 1;
  
!   fprintf (out, "(%s", func);
  
    if (*buf == '(')
      ++buf;
--- 435,441 ----
    int just_spaced = 0;
    int need_space = 1;
  
!   fprintf (out, "(fn");
  
    if (*buf == '(')
      ++buf;