diff options
| author | Kenichi Handa <handa@m17n.org> | 2007-11-21 12:12:06 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2007-11-21 12:12:06 +0000 |
| commit | 940054308a68e18e3b8cdd28415344af9a697198 (patch) | |
| tree | 67b8a0e3b965a19bef6142c50a4aafc4e96294e7 /src/lread.c | |
| parent | 495636f9467623dae797893e1c0b711960cf9406 (diff) | |
| download | emacs-940054308a68e18e3b8cdd28415344af9a697198.tar.gz | |
(read1): Undo the previous change.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index 9f201a504ff..2df624d086f 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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, 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)) |