diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-01-01 07:12:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-01-01 07:12:59 +0000 |
| commit | d39f07c2d6a90ddd4829642deef04c93d0be9fa4 (patch) | |
| tree | c6fb26c889342c0ed3c12dbea108326bd7c27030 /src | |
| parent | 3e3d3704c33a34e20c65e85d95403a8108b303a5 (diff) | |
| download | emacs-d39f07c2d6a90ddd4829642deef04c93d0be9fa4.tar.gz | |
(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.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 (); if (NILP (current_buffer->enable_multibyte_characters) \ && ! print_escape_multibyte) \ specbind (Qprint_escape_multibyte, Qt); \ + if (! NILP (current_buffer->enable_multibyte_characters) \ + && ! print_escape_nonascii) \ + specbind (Qprint_escape_nonascii, Qt); \ if (print_buffer != 0) \ { \ string = make_string_from_bytes (print_buffer, \ @@ -1427,7 +1430,7 @@ print_object (obj, printcharfun, escapeflag) PRINTCHAR ('f'); } else if (multibyte && ! ASCII_BYTE_P (c) - && (print_escape_multibyte || print_escape_nonascii)) + && print_escape_multibyte) { /* When multibyte is disabled, print multibyte string chars using hex escapes. */ |