branch: externals/tmr
commit 4a8e0b2566b97cc947c80309fe575d21c02d36b2
Author: Damien Cassou <dam...@cassou.me>
Commit: Protesilaos Stavrou <i...@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."
