From: Paul Eggert <eggert@cs.ucla.edu>
Date: Thu, 17 Mar 2022 00:21:55 +0000 (-0700)
Subject: Simplify generate-new-buffer-name randomness
X-Git-Tag: emacs-29.0.90~1931^2~1089
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7e0e5b7aeb928353065a3667c5231c4e4559d28;p=emacs.git

Simplify generate-new-buffer-name randomness

* src/buffer.c (Fgenerate_new_buffer_name):
Simplify by calling get_random instead of Frandom;
that’s random enough here.
---

diff --git a/src/buffer.c b/src/buffer.c
index 91ff6b946f7..f8a7a4f5109 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1159,11 +1159,9 @@ is first appended to NAME, to speed up finding a non-existent buffer.  */)
   else
     {
       char number[sizeof "-999999"];
-
-      /* Use XFIXNUM instead of XFIXNAT to work around GCC bug 80776.  */
-      int i = XFIXNUM (Frandom (make_fixnum (1000000)));
-      eassume (0 <= i && i < 1000000);
-
+      EMACS_INT r = get_random ();
+      eassume (0 <= r);
+      int i = r % 1000000;
       AUTO_STRING_WITH_LEN (lnumber, number, sprintf (number, "-%d", i));
       genbase = concat2 (name, lnumber);
       if (NILP (Fget_buffer (genbase)))