From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 11 Mar 2003 15:52:37 +0000 (+0000)
Subject: (Fprin1_to_string): Return unibyte string if possible.
X-Git-Tag: ttn-vms-21-2-B4~10948
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b51ee1312d32e5d7644e9af44ac8f2add5b45c95;p=emacs.git

(Fprin1_to_string): Return unibyte string if possible.
---

diff --git a/src/print.c b/src/print.c
index 151a193076d..38e82488b3c 100644
--- a/src/print.c
+++ b/src/print.c
@@ -775,6 +775,8 @@ A printed representation of an object is text which describes that object.  */)
   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);