Mercurial > emacs
changeset 91121:1805a65e7746
(read1): Undo the previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 21 Nov 2007 12:12:06 +0000 |
| parents | f5cf30ace11b |
| children | cf9895acb7d7 |
| files | src/lread.c |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Wed Nov 21 00:26:53 2007 +0000 +++ b/src/lread.c Wed Nov 21 12:12:06 2007 +0000 @@ -2992,11 +2992,19 @@ } } { +#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))