Fix unlikely user-full-name integer overflow

* src/editfns.c (Fuser_full_name):
Don’t assume uid fits into fixnum.

diff --git a/src/editfns.c b/src/editfns.c
index 360cdbe02ee1eab3aecd7155fc71c484ffbf759e..a9ac263dafa7c539196135672b009b57af4289c2 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1260,7 +1260,7 @@ name, or nil if there is no such user.  */)
   /* Substitute the login name for the &, upcasing the first character.  */
   if (q)
     {
-      Lisp_Object login = Fuser_login_name (make_fixnum (pw->pw_uid));
+      Lisp_Object login = Fuser_login_name (INT_TO_INTEGER (pw->pw_uid));
       USE_SAFE_ALLOCA;
       char *r = SAFE_ALLOCA (strlen (p) + SBYTES (login) + 1);
       memcpy (r, p, q - p);