Print non-ASCII chars in unibyte symbols as raw bytes

Previously, latin-1 was incorrectly assumed (bug#70988).

* src/print.c (print_object): Call the correct function.
* test/src/print-tests.el (print-unibyte-symbols): New test.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/print.c b/src/print.c
index 138a21f18ab..c14e6e1419e 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2475,7 +2475,7 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag)
           {
             /* Here, we must convert each multi-byte form to the
                corresponding character code before handing it to PRINTCHAR.  */
-            int c = fetch_string_char_advance (name, &i, &i_byte);
+            int c = fetch_string_char_as_multibyte_advance (name, &i, &i_byte);
             maybe_quit ();
 
             if (escapeflag)