From: Kenichi Handa <handa@m17n.org>
Date: Fri, 17 Jan 2003 00:47:58 +0000 (+0000)
Subject: (Fformat): Convert an unibyte char argument that is
X-Git-Tag: ttn-vms-21-2-B4~11616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=063b53b1b0b2c1e17975803159455ed4bd1bb585;p=emacs.git

(Fformat): Convert an unibyte char argument that is
formatted by "%c" to multibyte if the total result must be a
multibyte string.
---

diff --git a/src/editfns.c b/src/editfns.c
index 6539cd11d45..28c97c11a6b 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3359,17 +3359,25 @@ usage: (format STRING &rest OBJECTS)  */)
 		error ("Invalid format operation %%%c", *format);
 
 	    thissize = 30;
-	    if (*format == 'c'
-		&& (! SINGLE_BYTE_CHAR_P (XINT (args[n]))
-		    || XINT (args[n]) == 0))
+	    if (*format == 'c')
 	      {
-		if (! multibyte)
+		if (! SINGLE_BYTE_CHAR_P (XINT (args[n]))
+		    || XINT (args[n]) == 0)
 		  {
-		    multibyte = 1;
-		    goto retry;
+		    if (! multibyte)
+		      {
+			multibyte = 1;
+			goto retry;
+		      }
+		    args[n] = Fchar_to_string (args[n]);
+		    thissize = SBYTES (args[n]);
+		  }
+		else if (! ASCII_BYTE_P (XINT (args[n])) && multibyte)
+		  {
+		    args[n]
+		      = Fchar_to_string (Funibyte_char_to_multibyte (args[n]));
+		    thissize = SBYTES (args[n]);
 		  }
-		args[n] = Fchar_to_string (args[n]);
-		thissize = SBYTES (args[n]);
 	      }
 	  }
 	else if (FLOATP (args[n]) && *format != 's')