From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 18 Jan 1998 04:51:16 +0000 (+0000)
Subject: (print) <Lisp_String>: When multibyte is enabled, print
X-Git-Tag: emacs-20.3~2404
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=974a6ff52fadfb760a2c291de5137ea3f9d64844;p=emacs.git

(print) <Lisp_String>: When multibyte is enabled, print
single-byte non-ASCII chars using octal escapes.
---

diff --git a/src/print.c b/src/print.c
index 038e6ff3d15..0d2a29cc5c1 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1149,8 +1149,8 @@ print (obj, printcharfun, escapeflag)
 		  PRINTCHAR ('\\');
 		  PRINTCHAR ('f');
 		}
-	      else if (! SINGLE_BYTE_CHAR_P (c)
-		       && NILP (current_buffer->enable_multibyte_characters))
+	      else if ((! SINGLE_BYTE_CHAR_P (c)
+			&& NILP (current_buffer->enable_multibyte_characters)))
 		{
 		  /* When multibyte is disabled,
 		     print multibyte string chars using hex escapes.  */
@@ -1158,6 +1158,17 @@ print (obj, printcharfun, escapeflag)
 		  sprintf (outbuf, "\\x%x", c);
 		  strout (outbuf, -1, -1, printcharfun, 0);
 		}
+	      else if (SINGLE_BYTE_CHAR_P (c)
+		       && ! ASCII_BYTE_P (c)
+		       && ! NILP (current_buffer->enable_multibyte_characters))
+		{
+		  /* When multibyte is enabled,
+		     print single-byte non-ASCII string chars
+		     using octal escapes.  */
+		  unsigned char outbuf[5];
+		  sprintf (outbuf, "\\%03o", c);
+		  strout (outbuf, -1, -1, printcharfun, 0);
+		}
 	      else
 		{
 		  if (c == '\"' || c == '\\')