Remember the last TWO strings skipped with #@.
authorRichard M. Stallman <rms@gnu.org>
Mon, 1 Jun 1998 21:03:23 +0000 (21:03 +0000)
committerRichard M. Stallman <rms@gnu.org>
Mon, 1 Jun 1998 21:03:23 +0000 (21:03 +0000)
commitc15cfd1faa5b677ae69f39c6c902e5a9c8f680be
tree772b7a465c47ab24d1afbe8854014c5439856576
parent05b44e9027426c791f218f1e9d36d74dde1a2981
Remember the last TWO strings skipped with #@.
(prev_saved_doc_string*): New variables.
(Fload): Initalize prev_saved_doc_string.
(read1): Copy saved_doc_string to prev_saved_doc_string
before storing a new string in saved_doc_string.
(read_list): Look in prev_saved_doc_string as well as
in saved_doc_string.

(read1): Swap saved_doc_string_length and
prev_saved_doc_string_length.
(read_list): Negate docstring position if negative before checking
against saved_doc_string_length et al.

(read_vector): Add bytecodeflag parameter, which is
nonzero when reading a bytecode object.  If
`load-force-doc-strings' is t when reading a lazily-loaded
bytecode vector, the loaded docstring must be treated as unibyte
and passed to Fread to obtain the actual bytecode string and
constants vector.
(read1): Add extra parameter to read_vector calls.

(read1): Enable saving of doc strings on WINDOWSNT.
(read_list): Call get_doc_string instead of read_doc_string, when
forced to load doc strings.
src/lread.c