branch: elpa/hyperdrive commit c3d2d1e2eda033867902612c34073e45975fe61c Author: Jonas Bernoulli <jo...@bernoul.li> Commit: Jonas Bernoulli <jo...@bernoul.li>
Fix: (hyperdrive-time-greater-p) Don't return t if equal --- hyperdrive-lib.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el index c4e4ee1eba..ec1b8a828e 100644 --- a/hyperdrive-lib.el +++ b/hyperdrive-lib.el @@ -1424,7 +1424,8 @@ When PATH is nil or blank, return \"/\"." (defun hyperdrive-time-greater-p (a b) "Return non-nil if time value A is greater than B." - (not (time-less-p a b))) + (not (or (time-equal-p a b) + (time-less-p a b)))) (defun hyperdrive--clean-buffer (&optional buffer) "Remove all local variables, overlays, and text properties in BUFFER.