# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 923428249 0
# Node ID aa24b1cb428a1eaea25af5ba8cb96736e673c27c
# Parent  9fb4096c5f77973e03432aeb4deea93e216328d6
(get_doc_string): When UNIBYTE and DEFINITION are 0,
let the data control whether string is unibyte.

diff -r 9fb4096c5f77 -r aa24b1cb428a src/doc.c
--- a/src/doc.c	Tue Apr 06 19:36:02 1999 +0000
+++ b/src/doc.c	Tue Apr 06 19:50:49 1999 +0000
@@ -275,8 +275,15 @@
     return make_unibyte_string (get_doc_string_buffer + offset,
 				to - (get_doc_string_buffer + offset));
   else
-    return make_string (get_doc_string_buffer + offset,
-			to - (get_doc_string_buffer + offset));
+    {
+      /* Let the data determine whether the string is multibyte,
+	 even if Emacs is running in --unibyte mode.  */
+      int nchars = multibyte_chars_in_text (get_doc_string_buffer + offset,
+					    to - (get_doc_string_buffer + offset));
+      return make_string_from_bytes (get_doc_string_buffer + offset,
+				     nchars,
+				     to - (get_doc_string_buffer + offset));
+    }
 }
 
 /* Get a string from position FILEPOS and pass it through the Lisp reader.