From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 11 Jun 2002 15:13:58 +0000 (+0000)
Subject: (read_integer): Remove unused var `tem'.
X-Git-Tag: ttn-vms-21-2-B4~14676
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f74db720249518100fc2c257c0997b211c6ef683;p=emacs.git

(read_integer): Remove unused var `tem'.
(read1): Fix int/Lisp_Object mixup.
---

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;
 	}