Make format handle bignums

* src/editfns.c (styled_format): Handle bignums.
* test/src/editfns-tests.el (read-large-integer): Update.
(format-bignum): New test.

1 files changed, 21 insertions, 1 deletions

diff --git a/src/editfns.c b/src/editfns.c
index 6b54b41cbd9..09c17cbd926 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -4489,6 +4489,25 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool message)
                 conversion = 's';
               zero_flag = false;
             }
+          else if ((conversion == 'd' || conversion == 'i'
+                    || conversion == 'o' || conversion == 'x'
+                    || conversion == 'X')
+                   && BIGNUMP (arg))
+            {
+              int base = 10;
+
+              if (conversion == 'o')
+                base = 8;
+              else if (conversion == 'x')
+                base = 16;
+              else if (conversion == 'X')
+                base = -16;
+
+              char *str = mpz_get_str (NULL, base, XBIGNUM (arg)->value);
+              arg = make_unibyte_string (str, strlen (str));
+              xfree (str);
+              conversion = 's';
+            }
 
           if (SYMBOLP (arg))
             {
@@ -4600,7 +4619,8 @@ styled_format (ptrdiff_t nargs, Lisp_Object *args, bool message)
                       || conversion == 'X'))
             error ("Invalid format operation %%%c",
                    STRING_CHAR ((unsigned char *) format - 1));
-          else if (! (FIXNUMP (arg) || (FLOATP (arg) && conversion != 'c')))
+          else if (! (FIXNUMP (arg) || ((BIGNUMP (arg) || FLOATP (arg))
+                                        && conversion != 'c')))
             error ("Format specifier doesn't match argument type");
           else
             {