[elpa] externals/tmr 3f8674546b 09/10: tmr: accept optional default in description prompt

[ELPA Syncer]

branch: externals/tmr
commit 3f8674546bb4d24ca4bc35a8145f2b8b2eeb893b
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    tmr: accept optional default in description prompt
---
 tmr.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/tmr.el b/tmr.el
index 8475258cd3..96237029ab 100644
--- a/tmr.el
+++ b/tmr.el
@@ -323,9 +323,12 @@ If DEFAULT is provided, use that as a default."
 (defvar tmr--description-hist '()
   "Minibuffer history of `tmr' descriptions.")
 
-(defun tmr--description-prompt ()
-  "Helper prompt for descriptions in `tmr'."
-  (let ((def (nth 0 tmr--description-hist)))
+(defun tmr--description-prompt (&optional default)
+  "Helper prompt for descriptions in `tmr'.
+If optional DEFAULT is provided use it as a default.  Otherwise
+use the latest input from the `tmr--description-hist', if
+present."
+  (let ((def (or default (nth 0 tmr--description-hist))))
     (completing-read
      (if def
          (format "Description for this tmr [%s]: " def)