aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2024-07-10 11:04:18 +0200
committerPaul Eggert2024-07-11 16:01:41 +0200
commit2fb7bb41bee5e39391c9abc8013bcef39782e88d (patch)
tree9f12f81526d55ffa138c6f772c8107f84fdcd6c3
parentb6cbf0cbb66fa4c1a7f351350d5f9aed9c93cd26 (diff)
downloademacs-2fb7bb41bee5e39391c9abc8013bcef39782e88d.tar.gz
emacs-2fb7bb41bee5e39391c9abc8013bcef39782e88d.zip
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.
-rw-r--r--src/timefns.c2
1 files changed, 1 insertions, 1 deletions
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,
895 895
896 case TIMEFORM_TICKS_HZ: 896 case TIMEFORM_TICKS_HZ:
897 if (! (INTEGERP (high) 897 if (! (INTEGERP (high)
898 && !NILP (Fnatnump (low)) && !BASE_EQ (low, make_fixnum (0)))) 898 && (FIXNUMP (low) ? 0 < XFIXNUM (low) : !NILP (Fnatnump (low)))))
899 return (struct err_time) { .err = EINVAL }; 899 return (struct err_time) { .err = EINVAL };
900 ticks = high; 900 ticks = high;
901 hz = low; 901 hz = low;