Commit a12a9bd6 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(Fsnarf_documentation): Ignore new file name entries.

parent 1618ce6d
/* 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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment