From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 7 Apr 2004 19:17:36 +0000 (+0000)
Subject: (Fsnarf_documentation): Ignore new file name entries.
X-Git-Tag: ttn-vms-21-2-B4~6942
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a12a9bd6ab48161007d71e5fa6eb5009297a94e0;p=emacs.git

(Fsnarf_documentation): Ignore new file name entries.
---

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);
 	    }