lread.c (readchar_count): New variable.
authorColin Walters <walters@gnu.org>
Tue, 28 May 2002 16:24:55 +0000 (16:24 +0000)
committerColin Walters <walters@gnu.org>
Tue, 28 May 2002 16:24:55 +0000 (16:24 +0000)
commitabb13b09f457bbf32e3a75d9cabd66d2d8df494d
tree95da1f359cb56600b74b3a3e43bbe7de4824f238
parentb44ec8e346cd5128bf6a31d902beea5ca6414e8e
lread.c (readchar_count): New variable.
(readchar): Increment it.
(unreadchar): Decrement it.
(read_multibyte): Decrement it.
(Vread_with_symbol_positions): New variable.
(Vread_symbol_positions_list): New variable.
(read_internal_start): New function, created from Fread and
Fread_from_string.  Handle Vread_symbol_positions_list and
Vread_with_symbol_positions.
(readevalloop, Fread, Fread_from_string): Use it.
(read1): Use readchar_count to add symbol positions to
Vread_symbol_positions_list if Vread_with_symbol_positions is
non-nil.
(syms_of_lread): DEFVAR_LISP and initialize them.
src/lread.c