Mercurial > emacs
diff src/lread.c @ 45747:2049fa380cb1
(read_integer): Remove unused var `tem'.
(read1): Fix int/Lisp_Object mixup.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 11 Jun 2002 15:13:58 +0000 |
parents | 30f1ddc50732 |
children | e4f4f706201f |
line wrap: on
line diff
--- a/src/lread.c Tue Jun 11 15:09:36 2002 +0000 +++ b/src/lread.c Tue Jun 11 15:13:58 2002 +0000 @@ -1461,7 +1461,6 @@ Lisp_Object stream; { extern Lisp_Object Fread_minibuffer (); - Lisp_Object tem; if (NILP (stream)) stream = Vstandard_input; if (EQ (stream, Qt)) @@ -2513,7 +2512,9 @@ /* Kind of a hack; this will probably fail if characters in the symbol name were escaped. Not really a big deal, though. */ - Fcons (Fcons (result, readchar_count - Flength (Fsymbol_name (result))), + Fcons (Fcons (result, + make_number (readchar_count + - XFASTINT (Flength (Fsymbol_name (result))))), Vread_symbol_positions_list); return result; }