branch: elpa/hyperdrive
commit dbbe0ecd4390a70f3afbb08c9bf14aa6c9a33a67
Author: Adam Porter <a...@alphapapa.net>
Commit: Joseph Turner <jos...@ushin.org>
Add: (hyperdrive-time-greater-p) Inverse of time-less-p
---
hyperdrive-lib.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 4aca04c2a8..32a47a0618 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1304,6 +1304,12 @@ When BASE is non-nil, PATH will be expanded against BASE
instead."
(url-default-expander urlobj defobj)
(url-recreate-url urlobj)))
+;;;; Utilities
+
+(defun hyperdrive-time-greater-p (a b)
+ "Return non-nil if time value A is greater than B."
+ (not (time-less-p a b)))
+
(defun hyperdrive--clean-buffer (&optional buffer)
"Remove all local variables, overlays, and text properties in BUFFER.
When BUFFER is nil, act on current buffer."
