diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-06-11 15:13:58 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-06-11 15:13:58 +0000 |
| commit | 65355ee6e83e232497fcad61a2959bbd05363e17 (patch) | |
| tree | 0628d730f238b03dcf98406b200e5e72f90722bb | |
| parent | a103ad5ad33d02e3eaa874c1d152433c60ed6dbf (diff) | |
| download | emacs-65355ee6e83e232497fcad61a2959bbd05363e17.tar.gz | |
(read_integer): Remove unused var `tem'.
(read1): Fix int/Lisp_Object mixup.
| -rw-r--r-- | src/lread.c | 5 |
1 files 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; } |