(Fsnarf_documentation): Ignore new file name entries.

1 files changed, 6 insertions, 3 deletions

diff --git a/src/doc.c b/src/doc.c
index 930afc88e23..d4d749ab585 100644
--- a/src/doc.c
+++ b/src/doc.c
@@ -1,5 +1,6 @@
 /* Record indices of function doc strings stored in a file.
-   Copyright (C) 1985, 86,93,94,95,97,98,99, 2000 Free Software Foundation, Inc.
+   Copyright (C) 1985, 86,93,94,95,97,98,99,2000,04
+             Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -612,8 +613,7 @@ the same file name is found in the `data-directory'.  */)
         *p = '_';
       p++;
     }
-#endif /* not VMS4_4 */
-#ifdef VMS4_4
+#else /* VMS4_4 */
   strcpy (name, sys_translate_unix (name));
 #endif /* VMS4_4 */
 #endif /* VMS */
@@ -660,6 +660,9 @@ the same file name is found in the `data-directory'.  */)
               else if (p[1] == 'F')
                 store_function_docstring (sym, pos + end + 1 - buf);
 
+              else if (p[1] == 'S')
+                ; /* Just a source file name boundary marker.  Ignore it.  */
+
               else
                 error ("DOC file invalid at position %d", pos);
             }