]> git.eshelyaron.com Git - emacs.git/commitdiff
(print_object): Test print_escape_nonascii only for unibyte strings.
authorRichard M. Stallman <rms@gnu.org>
Tue, 1 Jan 2002 07:12:59 +0000 (07:12 +0000)
committerRichard M. Stallman <rms@gnu.org>
Tue, 1 Jan 2002 07:12:59 +0000 (07:12 +0000)
(PRINTPREPARE): Once again bind Qprint_escape_nonascii
when outputting to a multibyte buffer.

src/print.c

index 9fe8bc30c1cf1453c23cc1602440a087aec6a580..ed26603695b3a9f481118e132f7b8576df01e280 100644 (file)
@@ -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.  */