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

[Miles Bader]

Index: emacs/lib-src/make-docfile.c
diff -c emacs/lib-src/make-docfile.c:1.54.6.1 
emacs/lib-src/make-docfile.c:1.54.6.2
*** emacs/lib-src/make-docfile.c:1.54.6.1       Fri Apr 16 12:49:44 2004
--- emacs/lib-src/make-docfile.c        Mon Jun 28 07:28:22 2004
***************
*** 60,65 ****
--- 60,69 ----
  #define READ_BINARY "r"
  #endif /* not DOS_NT */
  
+ #ifndef IS_DIRECTORY_SEP
+ #define IS_DIRECTORY_SEP(_c_) ((_c_) == '/')
+ #endif
+ 
  int scan_file ();
  int scan_lisp_file ();
  int scan_c_file ();
***************
*** 100,106 ****
       char *s1, *s2;
  {
    error (s1, s2);
!   exit (1);
  }
  
  /* Like malloc but get fatal error if memory is exhausted.  */
--- 104,110 ----
       char *s1, *s2;
  {
    error (s1, s2);
!   exit (EXIT_FAILURE);
  }
  
  /* Like malloc but get fatal error if memory is exhausted.  */
***************
*** 183,193 ****
  put_filename (filename)
       char *filename;
  {
!   char *tmp = filename;
!   int len;
!   
!   while ((tmp = index (filename, '/')))
!     filename = tmp + 1;
  
    putc (037, outfile);
    putc ('S', outfile);
--- 187,199 ----
  put_filename (filename)
       char *filename;
  {
!   char *tmp;
! 
!   for (tmp = filename; *tmp; tmp++)
!     {
!       if (IS_DIRECTORY_SEP(*tmp))
!       filename = tmp + 1;
!     }
  
    putc (037, outfile);
    putc ('S', outfile);
***************
*** 1204,1206 ****
--- 1210,1214 ----
  
  /* arch-tag: f7203aaf-991a-4238-acb5-601db56f2894
     (do not change this comment) */
+ 
+ /* make-docfile.c ends here */