# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1047397957 0
# Node ID 5ff2f3145fd1afe302881b6b4f4936779379e39e
# Parent  d9f4e02aba7e9342918442a3f87c2ed5fb2209d6
(Fprin1_to_string): Return unibyte string if possible.

diff -r d9f4e02aba7e -r 5ff2f3145fd1 src/print.c
--- a/src/print.c	Tue Mar 11 12:49:20 2003 +0000
+++ b/src/print.c	Tue Mar 11 15:52:37 2003 +0000
@@ -775,6 +775,8 @@
   PRINTFINISH;
   set_buffer_internal (XBUFFER (Vprin1_to_string_buffer));
   object = Fbuffer_string ();
+  if (SBYTES (object) == SCHARS (object))
+    STRING_SET_UNIBYTE (object);
 
   Ferase_buffer ();
   set_buffer_internal (old);