[elpa] externals/tmr 448be30775 09/14: Improve tmr-clone: Only prompt for description if pressing C-u C-u

[ELPA Syncer]

branch: externals/tmr
commit 448be307750dfc7543e5dbd9ff3c247d6e1b658c
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Improve tmr-clone: Only prompt for description if pressing C-u C-u
---
 tmr.el | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

diff --git a/tmr.el b/tmr.el
index 546ac831bc..e43a6a38fa 100644
--- a/tmr.el
+++ b/tmr.el
@@ -371,25 +371,22 @@ user uses a prefix argument (\\[universal-argument])."
 ;;;###autoload
 (defun tmr-clone (timer &optional prompt)
   "Create a new timer by cloning TIMER.
-With optional PROMPT, such as a prefix argument, ask for
-confirmation about the duration and the description.  The
-description is asked only if TIMER had one.
+With optional PROMPT, such as a prefix argument (C-u), ask for
+confirmation about the duration. The description is asked only
+when the prefix argument is given twice (C-u C-u).
 
 Without a PROMPT, clone TIMER outright."
   (interactive
    (list
     (tmr--read-timer nil #'tmr--long-description-for-clonable-timer)
     current-prefix-arg))
-  (let ((description (tmr--timer-description timer)))
-    (cond
-     (prompt
-      (tmr
+  (tmr
+   (if prompt
        (tmr--read-duration (format "%s" (tmr--timer-input timer)))
-       (when description (tmr--description-prompt description))))
-     (t
-      (tmr
-       (format "%s" (tmr--timer-input timer))
-       (tmr--timer-description timer))))))
+     (format "%s" (tmr--timer-input timer)))
+   (if (equal prompt '(16))
+       (tmr--description-prompt (tmr--timer-description timer))
+     (tmr--timer-description timer))))
 
 (provide 'tmr)
 ;;; tmr.el ends here