(print_object): Use octal form for printing the

contents of a bool vector.

diff --git a/src/print.c b/src/print.c
index 7a900a108c1fef558bcef1d1a2767ef938f353d8..29555a7acbe0bc0fa0c81746186c762e0e32ccd8 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1698,7 +1698,12 @@ print_object (obj, printcharfun, escapeflag)
            {
              QUIT;
              c = XBOOL_VECTOR (obj)->data[i];
-             if (c == '\n' && print_escape_newlines)
+             if (! ASCII_BYTE_P (c))
+               {
+                 sprintf (buf, "\\%03o", c);
+                 strout (buf, -1, -1, printcharfun, 0);
+               }
+             else if (c == '\n' && print_escape_newlines)
                {
                  PRINTCHAR ('\\');
                  PRINTCHAR ('n');