From: Kenichi Handa <handa@m17n.org>
Date: Mon, 22 Jul 2002 06:27:09 +0000 (+0000)
Subject: (print_object): Use octal form for printing the
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~554
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2d2821515097896fe8e639d20e6b90c906eb0dc;p=emacs.git

(print_object): Use octal form for printing the
contents of a bool vector.
---

diff --git a/src/print.c b/src/print.c
index 7a900a108c1..29555a7acbe 100644
--- 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');