[elpa] externals/tmr 4a8e0b2566: tmr: Fix tmr--read-timer

[ELPA Syncer]

branch: externals/tmr
commit 4a8e0b2566b97cc947c80309fe575d21c02d36b2
Author: Damien Cassou <damien@cassou.me>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    tmr: Fix tmr--read-timer
    
    The key should be the same as the formatter for cl-find to find the
    timer from its printed description.
---
 tmr.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tmr.el b/tmr.el
index d016fccd25..5a54438146 100644
--- a/tmr.el
+++ b/tmr.el
@@ -243,7 +243,7 @@ completion candidates."
       (let* ((formatter (or description #'tmr--long-description))
              (timer-descriptions (mapcar formatter timers))
              (selection (completing-read "Timer: " timer-descriptions nil t)))
-        (cl-find selection timers :test #'string= :key 
#'tmr--long-description))))))
+        (cl-find selection timers :test #'string= :key formatter))))))
 
 (defun tmr-print-message-for-created-timer (timer)
   "Show a `message' informing the user that TIMER was created."