aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman2002-01-01 07:12:59 +0000
committerRichard M. Stallman2002-01-01 07:12:59 +0000
commitd39f07c2d6a90ddd4829642deef04c93d0be9fa4 (patch)
treec6fb26c889342c0ed3c12dbea108326bd7c27030 /src
parent3e3d3704c33a34e20c65e85d95403a8108b303a5 (diff)
downloademacs-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')
-rw-r--r--src/print.c5
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. */