(Fprin1_to_string): Return unibyte string if possible.

b51ee131 · Stefan Monnier · ee24a852 · b51ee131
Commit b51ee131 authored Mar 11, 2003 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

src/print.c src/print.c +2 -0

No files found.
--- 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);