branch: externals/tmr
commit b2903077f52deb25114ad728483a7e5dd485f797
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
tmr: store the original input of a timer
This is the string that we supply to the 'tmr' which gets converted into
the actual duration. We need it for interactive purposes, such as when
prompting for a timer to clone.
---
tmr.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/tmr.el b/tmr.el
index 1ae4118970..8475258cd3 100644
--- a/tmr.el
+++ b/tmr.el
@@ -171,6 +171,10 @@ Each function must accept a timer as argument."
nil
:read-only nil
:documentation "The object returned by `run-with-timer'.")
+ (input
+ nil
+ :read-only t
+ :documentation "The original input which is internally interpreted as a
duration.")
(description
nil
:read-only t
@@ -362,7 +366,8 @@ command `tmr-with-description' instead of this one."
(timer (tmr--timer-create
:description description
:creation-date creation-date
- :duration duration))
+ :duration duration
+ :input time))
(timer-object (run-with-timer
duration nil
#'tmr--complete timer)))
