(Fformat): Handle %c specially since it requires the

argument to be of type int.

1 files changed, 7 insertions, 2 deletions

diff --git a/src/editfns.c b/src/editfns.c
index bcfe5756034..037efdf98e0 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3809,7 +3809,8 @@ usage: (format STRING &rest OBJECTS)  */)
                 sprintf (p, this_format, XFLOAT_DATA (args[n]));
               else
                 {
-                  if (sizeof (EMACS_INT) > sizeof (int))
+                  if (sizeof (EMACS_INT) > sizeof (int)
+                      && format[-1] != 'c')
                     {
                       /* Insert 'l' before format spec.  */
                       this_format[format - this_format_start]
@@ -3820,12 +3821,16 @@ usage: (format STRING &rest OBJECTS)  */)
 
                   if (INTEGERP (args[n]))
                     {
-                      if (format[-1] == 'd')
+                      if (format[-1] == 'c')
+                        sprintf (p, this_format, (int) XINT (args[n]));
+                      else if (format[-1] == 'd')
                         sprintf (p, this_format, XINT (args[n]));
                       /* Don't sign-extend for octal or hex printing.  */
                       else
                         sprintf (p, this_format, XUINT (args[n]));
                     }
+                  else if (format[-1] == 'c')
+                    sprintf (p, this_format, (int) XFLOAT_DATA (args[n]));
                   else if (format[-1] == 'd')
                     /* Maybe we should use "%1.0f" instead so it also works
                        for values larger than MAXINT.  */