[elpa] externals/tmr b2903077f5 08/10: tmr: store the original input of a timer

[ELPA Syncer]

branch: externals/tmr
commit b2903077f52deb25114ad728483a7e5dd485f797
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@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)))