comparison src/lread.c @ 91121:1805a65e7746

(read1): Undo the previous change.

91120:f5cf30ace11b

		return make_float (negative ? - value : value);
	      }
	  }
	{
	  Lisp_Object name = make_specified_string (read_buffer, -1,
						    p - read_buffer,
						    multibyte);
	  Lisp_Object result = (uninterned_symbol ? Fmake_symbol (name)
				: Fintern (name, Qnil));

	  if (EQ (Vread_with_symbol_positions, Qt)
	      || EQ (Vread_with_symbol_positions, readcharfun))
	    Vread_symbol_positions_list =
	      /* Kind of a hack; this will probably fail if characters

91121:1805a65e7746

		return make_float (negative ? - value : value);
	      }
	  }
	{
#if 0
	  /* Fixme: The fullowing code is currently commented out
	     because it results in strange error in C-h f.  For the
	     moment, I don't have a time to track down the
	     problem.  -- Handa */
	  Lisp_Object name = make_specified_string (read_buffer, -1,
						    p - read_buffer,
						    multibyte);
	  Lisp_Object result = (uninterned_symbol ? Fmake_symbol (name)
				: Fintern (name, Qnil));
#endif
	  Lisp_Object result = uninterned_symbol ? make_symbol (read_buffer)
	    : intern (read_buffer);

	  if (EQ (Vread_with_symbol_positions, Qt)
	      || EQ (Vread_with_symbol_positions, readcharfun))
	    Vread_symbol_positions_list =
	      /* Kind of a hack; this will probably fail if characters