Mercurial > emacs

changeset 45747:2049fa380cb1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 8f026a28517c
children b082a134b8bc
files src/lread.c
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
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;
 	}