diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-03-11 15:52:37 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-03-11 15:52:37 +0000 |
| commit | b51ee1312d32e5d7644e9af44ac8f2add5b45c95 (patch) | |
| tree | 41f52744ca080ecfd1237a1272a6a95648a999e7 | |
| parent | ee24a85250b99a13292675ce030b5d88eb4a619b (diff) | |
| download | emacs-b51ee1312d32e5d7644e9af44ac8f2add5b45c95.tar.gz | |
(Fprin1_to_string): Return unibyte string if possible.
| -rw-r--r-- | src/print.c | 2 |
1 files changed, 2 insertions, 0 deletions
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); |