diff options
| author | Paul Eggert | 2024-07-10 11:04:18 +0200 |
|---|---|---|
| committer | Paul Eggert | 2024-07-11 16:01:41 +0200 |
| commit | 2fb7bb41bee5e39391c9abc8013bcef39782e88d (patch) | |
| tree | 9f12f81526d55ffa138c6f772c8107f84fdcd6c3 | |
| parent | b6cbf0cbb66fa4c1a7f351350d5f9aed9c93cd26 (diff) | |
| download | emacs-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.c | 2 |
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; |