branch: externals/tmr
commit 318f1485efc79ae7a60ab6d1c207eb4a1d5e7419
Merge: 133eb60db7 b68961a558
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: GitHub <nore...@github.com>
Merge pull request #3 from Stebalien/steb/fix-face-def
Fix face definition for expiring timers
---
tmr.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/tmr.el b/tmr.el
index 3d8ddf4acd..15bd4174b0 100644
--- a/tmr.el
+++ b/tmr.el
@@ -915,15 +915,15 @@ they are set to reasonable default values."
"Format remaining time for TIMER with appropriate face."
(let* ((secs (float-time (time-subtract (tmr--timer-end-date timer) nil)))
(face (cond ((and (< secs 5) (evenp (truncate secs)))
- '((t :inherit tmr-mode-line-urgent :inverse-video t)))
+ '(tmr-mode-line-urgent (:inverse-video t)))
((< secs 30) 'tmr-mode-line-urgent)
((= (truncate secs) 30)
- '((t :inherit tmr-mode-line-urgent :inverse-video t)))
+ '(tmr-mode-line-urgent (:inverse-video t)))
((= (truncate secs) 60)
- '((t :inherit tmr-mode-line-soon :inverse-video t)))
+ '(tmr-mode-line-soon (:inverse-video t)))
((< secs 120) 'tmr-mode-line-soon)
((= (truncate secs) 120)
- '((t :inherit tmr-mode-line-soon :inverse-video t)))
+ '(tmr-mode-line-soon (:inverse-video t)))
(t 'tmr-mode-line-active)))
(formatted (format-seconds
(cond ((< secs 120) "%mm %ss%z")
