# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1195647126 0
# Node ID 1805a65e77466842cf3a2abcff4419ec6c3d686a
# Parent  f5cf30ace11b7b59dfee96939dc85d3dd8673449
(read1): Undo the previous change.

diff -r f5cf30ace11b -r 1805a65e7746 src/lread.c
--- 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))