Prefer UINTMAX_WIDTH in print_object

* src/print.c (print_object):
Prefer UINTMAX_WIDTH to rolling our own substitute.

diff --git a/src/print.c b/src/print.c
index 6320c38fc6bf19ab34b70621290db2203fa99493..5c95aeb9a2054df75048e42133467c34a88aba6b 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -2202,7 +2202,7 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag)
   char buf[max (sizeof "from..to..in " + 2 * INT_STRLEN_BOUND (EMACS_INT),
                max (sizeof " . #" + INT_STRLEN_BOUND (intmax_t),
                     max ((sizeof " with data 0x"
-                          + (sizeof (uintmax_t) * CHAR_BIT + 4 - 1) / 4),
+                          + (UINTMAX_WIDTH + 4 - 1) / 4),
                          40)))];
   current_thread->stack_top = NEAR_STACK_TOP (buf);