diff options
| author | Richard M. Stallman | 2002-01-01 07:12:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-01-01 07:12:59 +0000 |
| commit | d39f07c2d6a90ddd4829642deef04c93d0be9fa4 (patch) | |
| tree | c6fb26c889342c0ed3c12dbea108326bd7c27030 /src/print.c | |
| parent | 3e3d3704c33a34e20c65e85d95403a8108b303a5 (diff) | |
| download | emacs-d39f07c2d6a90ddd4829642deef04c93d0be9fa4.tar.gz emacs-d39f07c2d6a90ddd4829642deef04c93d0be9fa4.zip | |
(print_object): Test print_escape_nonascii only for unibyte strings.
(PRINTPREPARE): Once again bind Qprint_escape_nonascii
when outputting to a multibyte buffer.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/print.c b/src/print.c index 9fe8bc30c1c..ed26603695b 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -226,6 +226,9 @@ void print_interval (); | |||
| 226 | if (NILP (current_buffer->enable_multibyte_characters) \ | 226 | if (NILP (current_buffer->enable_multibyte_characters) \ |
| 227 | && ! print_escape_multibyte) \ | 227 | && ! print_escape_multibyte) \ |
| 228 | specbind (Qprint_escape_multibyte, Qt); \ | 228 | specbind (Qprint_escape_multibyte, Qt); \ |
| 229 | if (! NILP (current_buffer->enable_multibyte_characters) \ | ||
| 230 | && ! print_escape_nonascii) \ | ||
| 231 | specbind (Qprint_escape_nonascii, Qt); \ | ||
| 229 | if (print_buffer != 0) \ | 232 | if (print_buffer != 0) \ |
| 230 | { \ | 233 | { \ |
| 231 | string = make_string_from_bytes (print_buffer, \ | 234 | string = make_string_from_bytes (print_buffer, \ |
| @@ -1427,7 +1430,7 @@ print_object (obj, printcharfun, escapeflag) | |||
| 1427 | PRINTCHAR ('f'); | 1430 | PRINTCHAR ('f'); |
| 1428 | } | 1431 | } |
| 1429 | else if (multibyte && ! ASCII_BYTE_P (c) | 1432 | else if (multibyte && ! ASCII_BYTE_P (c) |
| 1430 | && (print_escape_multibyte || print_escape_nonascii)) | 1433 | && print_escape_multibyte) |
| 1431 | { | 1434 | { |
| 1432 | /* When multibyte is disabled, | 1435 | /* When multibyte is disabled, |
| 1433 | print multibyte string chars using hex escapes. */ | 1436 | print multibyte string chars using hex escapes. */ |