diff options
| author | Paul Eggert | 2022-04-14 19:03:41 -0700 |
|---|---|---|
| committer | Paul Eggert | 2022-04-14 19:09:51 -0700 |
| commit | 7c17bd2a6d8d7cf710051cd7ca00260c1e557609 (patch) | |
| tree | 3d9a870b3981f1ec2d058da18093762515a8da0b /src | |
| parent | 6c4559d13865cb5761071ac59f395718b85eb41c (diff) | |
| download | emacs-7c17bd2a6d8d7cf710051cd7ca00260c1e557609.tar.gz emacs-7c17bd2a6d8d7cf710051cd7ca00260c1e557609.zip | |
New time-equal-p test
* test/src/timefns-tests.el (time-equal-p-NaN-NaN): New test.
Diffstat (limited to 'src')
| -rw-r--r-- | src/timefns.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/timefns.c b/src/timefns.c index 6cfb787af8f..b061be0a786 100644 --- a/src/timefns.c +++ b/src/timefns.c | |||
| @@ -1221,7 +1221,8 @@ time_cmp (Lisp_Object a, Lisp_Object b) | |||
| 1221 | 1221 | ||
| 1222 | /* Compare nil to nil correctly, and handle other eq values quicker | 1222 | /* Compare nil to nil correctly, and handle other eq values quicker |
| 1223 | while we're at it. Compare here rather than earlier, to handle | 1223 | while we're at it. Compare here rather than earlier, to handle |
| 1224 | NaNs and check formats. */ | 1224 | NaNs. This means (time-equal-p X X) does not signal an error if |
| 1225 | X is not a valid time value, but that's OK. */ | ||
| 1225 | if (EQ (a, b)) | 1226 | if (EQ (a, b)) |
| 1226 | return 0; | 1227 | return 0; |
| 1227 | 1228 | ||