From: Kenichi Handa <handa@m17n.org>
Date: Wed, 21 Nov 2007 12:12:06 +0000 (+0000)
Subject: (read1): Undo the previous change.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~244
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=940054308a68e18e3b8cdd28415344af9a697198;p=emacs.git

(read1): Undo the previous change.
---

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))