From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 15 May 2023 01:51:24 +0000 (-0700)
Subject: Prefer UINTMAX_WIDTH in print_object
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85c4efc9f415e76244580dc85cce99c4df6ea4e8;p=emacs.git

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 6320c38fc6b..5c95aeb9a20 100644
--- 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);