diff options
| author | Stefan Monnier | 2003-03-11 15:52:37 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-03-11 15:52:37 +0000 |
| commit | b51ee1312d32e5d7644e9af44ac8f2add5b45c95 (patch) | |
| tree | 41f52744ca080ecfd1237a1272a6a95648a999e7 /src | |
| parent | ee24a85250b99a13292675ce030b5d88eb4a619b (diff) | |
| download | emacs-b51ee1312d32e5d7644e9af44ac8f2add5b45c95.tar.gz emacs-b51ee1312d32e5d7644e9af44ac8f2add5b45c95.zip | |
(Fprin1_to_string): Return unibyte string if possible.
Diffstat (limited to 'src')
| -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. */) | |||
| 775 | PRINTFINISH; | 775 | PRINTFINISH; |
| 776 | set_buffer_internal (XBUFFER (Vprin1_to_string_buffer)); | 776 | set_buffer_internal (XBUFFER (Vprin1_to_string_buffer)); |
| 777 | object = Fbuffer_string (); | 777 | object = Fbuffer_string (); |
| 778 | if (SBYTES (object) == SCHARS (object)) | ||
| 779 | STRING_SET_UNIBYTE (object); | ||
| 778 | 780 | ||
| 779 | Ferase_buffer (); | 781 | Ferase_buffer (); |
| 780 | set_buffer_internal (old); | 782 | set_buffer_internal (old); |