diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2022-04-14 19:03:41 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2022-04-14 19:09:51 -0700 |
| commit | 7c17bd2a6d8d7cf710051cd7ca00260c1e557609 (patch) | |
| tree | 3d9a870b3981f1ec2d058da18093762515a8da0b /src/timefns.c | |
| parent | 6c4559d13865cb5761071ac59f395718b85eb41c (diff) | |
| download | emacs-7c17bd2a6d8d7cf710051cd7ca00260c1e557609.tar.gz | |
New time-equal-p test
* test/src/timefns-tests.el (time-equal-p-NaN-NaN): New test.
Diffstat (limited to 'src/timefns.c')
| -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) /* Compare nil to nil correctly, and handle other eq values quicker while we're at it. Compare here rather than earlier, to handle - NaNs and check formats. */ + NaNs. This means (time-equal-p X X) does not signal an error if + X is not a valid time value, but that's OK. */ if (EQ (a, b)) return 0; |