comparison src/lread.c @ 45747:2049fa380cb1

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

45746:8f026a28517c

    standard input in batch mode).  */)
     (stream)
     Lisp_Object stream;
{
  extern Lisp_Object Fread_minibuffer ();
  Lisp_Object tem;
  if (NILP (stream))
    stream = Vstandard_input;
  if (EQ (stream, Qt))
    stream = Qread_char;
  if (EQ (stream, Qread_char))

	      || EQ (Vread_with_symbol_positions, readcharfun))
	    Vread_symbol_positions_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))),
		     Vread_symbol_positions_list);
	  return result;
	}
      }
    }

45747:2049fa380cb1

    standard input in batch mode).  */)
     (stream)
     Lisp_Object stream;
{
  extern Lisp_Object Fread_minibuffer ();
  if (NILP (stream))
    stream = Vstandard_input;
  if (EQ (stream, Qt))
    stream = Qread_char;
  if (EQ (stream, Qread_char))

	      || EQ (Vread_with_symbol_positions, readcharfun))
	    Vread_symbol_positions_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,
			    make_number (readchar_count
					 - XFASTINT (Flength (Fsymbol_name (result))))),
		     Vread_symbol_positions_list);
	  return result;
	}
      }
    }