[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 857c2c2: Rename time-equal to time-equal-p
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 857c2c2: Rename time-equal to time-equal-p |
Date: |
Fri, 28 Sep 2018 13:37:59 -0400 (EDT) |
branch: master
commit 857c2c271080ef62e57128f531cee6e974ca28fb
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
Rename time-equal to time-equal-p
This is for consistency with time-less-p.
* doc/lispref/os.texi (Time Calculations), etc/NEWS:
* src/editfns.c (Ftime_equal_p, syms_of_editfns):
* test/lisp/emacs-lisp/timer-tests.el (timer-test-multiple-of-time):
Rename.
---
doc/lispref/os.texi | 2 +-
etc/NEWS | 2 +-
src/editfns.c | 4 ++--
test/lisp/emacs-lisp/timer-tests.el | 2 +-
4 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index 400e6bb..8ce5a5e 100644
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -1739,7 +1739,7 @@ This returns @code{t} if time value @var{t1} is less than
time value
The result is @code{nil} if either argument is a NaN.
@end defun
address@hidden time-equal t1 t2
address@hidden time-equal-p t1 t2
This returns @code{t} if @var{t1} and @var{t2} are equal time values.
The result is @code{nil} if either argument is a NaN.
@end defun
diff --git a/etc/NEWS b/etc/NEWS
index 4dd4260..e6508eb 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -957,7 +957,7 @@ infinities and NaNs too, and propagate them or return nil
like
floating-point operators do.
+++
-** New function 'time-equal' compares time values for equality.
+** New function 'time-equal-p' compares time values for equality.
** define-minor-mode automatically documents the meaning of ARG.
diff --git a/src/editfns.c b/src/editfns.c
index acd80bb..daea746 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1676,7 +1676,7 @@ See `current-time-string' for the various forms of a time
value. */)
return time_cmp (t1, t2) < 0 ? Qt : Qnil;
}
-DEFUN ("time-equal", Ftime_equal, Stime_equal, 2, 2, 0,
+DEFUN ("time-equal-p", Ftime_equal_p, Stime_equal_p, 2, 2, 0,
doc: /* Return non-nil if T1 and T2 are equal time values. */)
(Lisp_Object t1, Lisp_Object t2)
{
@@ -5765,7 +5765,7 @@ it to be non-nil. */);
defsubr (&Scurrent_time);
defsubr (&Stime_add);
defsubr (&Stime_subtract);
- defsubr (&Stime_equal);
+ defsubr (&Stime_equal_p);
defsubr (&Stime_less_p);
defsubr (&Sget_internal_run_time);
defsubr (&Sformat_time_string);
diff --git a/test/lisp/emacs-lisp/timer-tests.el
b/test/lisp/emacs-lisp/timer-tests.el
index 0e40cdf..c5971ee 100644
--- a/test/lisp/emacs-lisp/timer-tests.el
+++ b/test/lisp/emacs-lisp/timer-tests.el
@@ -40,7 +40,7 @@
(should (debug-timer-check)) t))
(ert-deftest timer-test-multiple-of-time ()
- (should (time-equal
+ (should (time-equal-p
(timer-next-integral-multiple-of-time '(0 0 0 1) (1+ (ash 1 53)))
(list (ash 1 (- 53 16)) 1))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 857c2c2: Rename time-equal to time-equal-p,
Paul Eggert <=