From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 10 Jul 2024 09:04:18 +0000 (+0200)
Subject: In timefns, call natnump only for non-fixnums
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8f0c500d19b963417c7cfc0a4dc3f393a8354e9;p=emacs.git

In timefns, call natnump only for non-fixnums

* src/timefns.c (decode_time_components): Call Fnatnump only
for non-fixnums, as we need to special-case 0 anyway.

(cherry picked from commit 2fb7bb41bee5e39391c9abc8013bcef39782e88d)
---

diff --git a/src/timefns.c b/src/timefns.c
index ba1ba10a809..45a0930f8a8 100644
--- a/src/timefns.c
+++ b/src/timefns.c
@@ -895,7 +895,7 @@ decode_time_components (enum timeform form,
 
     case TIMEFORM_TICKS_HZ:
       if (! (INTEGERP (high)
-	     && !NILP (Fnatnump (low)) && !BASE_EQ (low, make_fixnum (0))))
+	     && (FIXNUMP (low) ? 0 < XFIXNUM (low) : !NILP (Fnatnump (low)))))
 	return (struct err_time) { .err = EINVAL };
       ticks = high;
       hz = low;