From f74db720249518100fc2c257c0997b211c6ef683 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 11 Jun 2002 15:13:58 +0000 Subject: [PATCH] (read_integer): Remove unused var `tem'. (read1): Fix int/Lisp_Object mixup. --- src/lread.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/lread.c b/src/lread.c index f3ae4c98970..5d1967ece48 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1461,7 +1461,6 @@ STREAM or the value of `standard-input' may be: 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 @@ read1 (readcharfun, pch, first_in_list) /* 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; } -- 2.39.2