From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Mar 2002 20:04:17 +0000 (+0000)
Subject: (print_object): Output multibyte chars 128...255
X-Git-Tag: ttn-vms-21-2-B4~16371
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae7367d33b9b0762667345b480f1ee3f22479828;p=emacs.git

(print_object): Output multibyte chars 128...255
using \x even if ! print_escape_multibyte.
---

diff --git a/src/print.c b/src/print.c
index f0501bd0fb7..6f9d4a0120c 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1429,11 +1429,15 @@ print_object (obj, printcharfun, escapeflag)
 		  PRINTCHAR ('\\');
 		  PRINTCHAR ('f');
 		}
-	      else if (multibyte && ! ASCII_BYTE_P (c)
-		       && print_escape_multibyte)
+	      else if (multibyte
+		       && ! ASCII_BYTE_P (c)
+		       && (SINGLE_BYTE_CHAR_P (c) || print_escape_multibyte))
 		{
 		  /* When multibyte is disabled,
-		     print multibyte string chars using hex escapes.  */
+		     print multibyte string chars using hex escapes.
+		     For a char code that could be in a unibyte string,
+		     when found in a multibyte string, always use a hex escape
+		     so it reads back as multibyte.  */
 		  unsigned char outbuf[50];
 		  sprintf (outbuf, "\\x%x", c);
 		  strout (outbuf, -1, -1, printcharfun, 0);