# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 890502728 0
# Node ID 05fbf4f5b14fe077f60a8a57ac1b89dadd14d378
# Parent  c6212caa6fe2728cbebc0161105dcaea545b39e1
(read1): Pass new arg to make_pure_string.
(make_symbol): Likewise.
(init_obarray): Likewise.
(read1): Use make_specified_string.

diff -r c6212caa6fe2 -r 05fbf4f5b14f src/lread.c
--- a/src/lread.c	Sat Mar 21 17:51:30 1998 +0000
+++ b/src/lread.c	Sat Mar 21 17:52:08 1998 +0000
@@ -1800,8 +1800,12 @@
 	  nchars = p - read_buffer;
 
 	if (read_pure)
-	  return make_pure_string (read_buffer, nchars, p - read_buffer);
-	return make_multibyte_string (read_buffer, nchars, p - read_buffer);
+	  return make_pure_string (read_buffer, nchars, p - read_buffer,
+				   (force_multibyte
+				    || (p - read_buffer != nchars)));
+	return make_specified_string (read_buffer, nchars, p - read_buffer,
+				      (force_multibyte
+				       || (p - read_buffer != nchars)));
       }
 
     case '.':
@@ -2234,7 +2238,7 @@
   int len = strlen (str);
 
   return Fmake_symbol ((!NILP (Vpurify_flag)
-			? make_pure_string (str, len, len)
+			? make_pure_string (str, len, len, 0)
 			: make_string (str, len)));
 }
 
@@ -2484,7 +2488,7 @@
 
   XSETFASTINT (oblength, OBARRAY_SIZE);
 
-  Qnil = Fmake_symbol (make_pure_string ("nil", 3, 3));
+  Qnil = Fmake_symbol (make_pure_string ("nil", 3, 3, 0));
   Vobarray = Fmake_vector (oblength, make_number (0));
   initial_obarray = Vobarray;
   staticpro (&initial_obarray);
@@ -2497,7 +2501,7 @@
   tem = &XVECTOR (Vobarray)->contents[hash];
   *tem = Qnil;
 
-  Qunbound = Fmake_symbol (make_pure_string ("unbound", 7, 7));
+  Qunbound = Fmake_symbol (make_pure_string ("unbound", 7, 7, 0));
   XSYMBOL (Qnil)->function = Qunbound;
   XSYMBOL (Qunbound)->value = Qunbound;
   XSYMBOL (Qunbound)->function = Qunbound;