Commit 94005430 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(read1): Undo the previous change.

parent 495636f9
......@@ -2992,11 +2992,19 @@ read1 (readcharfun, pch, first_in_list)
#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,
Lisp_Object result = (uninterned_symbol ? Fmake_symbol (name)
: Fintern (name, Qnil));
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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment