# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893453131 0
# Node ID 53f1e474e639ba2c5b0c7fd90a3109f02885afb9
# Parent  bc7f520d82517d6fdc57f7b9c90e0e5f5a4297ad
(read1): Allow multibyte and unibyte together in one string.

diff -r bc7f520d8251 -r 53f1e474e639 src/lread.c
--- a/src/lread.c	Fri Apr 24 21:24:44 1998 +0000
+++ b/src/lread.c	Fri Apr 24 21:25:31 1998 +0000
@@ -1797,13 +1797,10 @@
 	if (!NILP (Vpurify_flag) && NILP (Vdoc_file_name) && cancel)
 	  return make_number (0);
 
-	if (force_singlebyte && force_multibyte)
-	  error ("Multibyte and unibyte characters in one string constant");
-
-	if (force_singlebyte)
+	if (force_multibyte)
+	  nchars = multibyte_chars_in_text (read_buffer, p - read_buffer);
+	else if (force_singlebyte)
 	  nchars = p - read_buffer;
-	else if (force_multibyte)
-	  nchars = multibyte_chars_in_text (read_buffer, p - read_buffer);
 	else if (load_convert_to_unibyte)
 	  {
 	    Lisp_Object string;