comparison src/lread.c @ 91185:62752a838b86

(read1): Redo the previous change with checking Vpurify_flag.

91184:f73ebed781c2

		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

91185:62752a838b86

		return make_float (negative ? - value : value);
	      }
	  }
	{
	  Lisp_Object name, result;
	  EMACS_INT nbytes = p - read_buffer;
	  EMACS_INT nchars
	    = (multibyte ? multibyte_chars_in_text (read_buffer, nbytes)
	       : nbytes);

	  if (uninterned_symbol && ! NILP (Vpurify_flag))
	    name = make_pure_string (read_buffer, nchars, nbytes, multibyte);
	  else
	    name = make_specified_string (read_buffer, nchars, nbytes,multibyte);
	  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