branch: externals/tmr
commit 8594a02b1185056f8ae6829091ae16ce4e4935e6
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Use timer as id in tabulated list
---
tmr-tabulated.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/tmr-tabulated.el b/tmr-tabulated.el
index 2ee6b6c860..bfa5cb7303 100644
--- a/tmr-tabulated.el
+++ b/tmr-tabulated.el
@@ -53,7 +53,7 @@
(defun tmr-tabulated--timer-to-entry (timer)
"Convert TIMER into an entry suitable for `tabulated-list-entries'."
- (list (tmr--timer-creation-date timer)
+ (list timer
(vector (tmr--format-creation-date timer)
(tmr--format-end-date timer)
(tmr--format-remaining timer)
@@ -120,8 +120,7 @@
(defun tmr-tabulated--timer-at-point ()
"Return the timer on the current line or nil."
- (and (eq major-mode #'tmr-tabulated-mode)
- (cl-find (tabulated-list-get-id) tmr--timers :key
#'tmr--timer-creation-date)))
+ (and (eq major-mode #'tmr-tabulated-mode) (tabulated-list-get-id)))
(defun tmr-tabulated--refresh ()
"Refresh *tmr-tabulated-view* buffer if it exists."
