diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-07 19:17:36 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-07 19:17:36 +0000 |
| commit | a12a9bd6ab48161007d71e5fa6eb5009297a94e0 (patch) | |
| tree | 050e8f88e8f127ce64d1959e270a3acff440cac9 | |
| parent | 1618ce6df78f53caa1b82fce36a0840898562185 (diff) | |
| download | emacs-a12a9bd6ab48161007d71e5fa6eb5009297a94e0.tar.gz | |
(Fsnarf_documentation): Ignore new file name entries.
| -rw-r--r-- | src/doc.c | 9 |
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); } |