]> git.eshelyaron.com Git - emacs.git/commitdiff
(Fformat): Format multibyte characters by "%c"
authorKenichi Handa <handa@m17n.org>
Wed, 4 Mar 1998 07:41:41 +0000 (07:41 +0000)
committerKenichi Handa <handa@m17n.org>
Wed, 4 Mar 1998 07:41:41 +0000 (07:41 +0000)
correctly.  Handle padding for multibyte characters correctly.

src/editfns.c

index 9718c5aa153203332198b8cc6d8bfd4b32ce2d14..5ae0c28be6dcefbfe5fdd4094157a3ab7d83ecf9 100644 (file)
@@ -2299,7 +2299,17 @@ Use %% to put a single % into the output.")
            if (*format == 'e' || *format == 'f' || *format == 'g')
              args[n] = Ffloat (args[n]);
 #endif
-           thissize = 30;
+           thissize = 30;      
+           if (*format == 'c' && ! SINGLE_BYTE_CHAR_P (XINT (args[n])))
+             {
+               if (! multibyte)
+                 {
+                   multibyte = 1;
+                   goto retry;
+                 }
+               args[n] = Fchar_to_string (args[n]);
+               thissize = XSTRING (args[n])->size_byte;
+             }
          }
 #ifdef LISP_FLOAT_TYPE
        else if (FLOATP (args[n]) && *format != 's')
@@ -2376,16 +2386,17 @@ Use %% to put a single % into the output.")
 
          if (STRINGP (args[n]))
            {
-             int padding, nbytes;
+             int padding, nbytes, width;
 
              nbytes = copy_text (XSTRING (args[n])->data, p,
                                  XSTRING (args[n])->size_byte,
                                  STRING_MULTIBYTE (args[n]), multibyte);
+             width = strwidth (p, nbytes);
              p += nbytes;
              nchars += XSTRING (args[n])->size;
 
              /* If spec requires it, pad on right with spaces.  */
-             padding = minlen - XSTRING (args[n])->size;
+             padding = minlen - width;
              while (padding-- > 0)
                {
                  *p++ = ' ';