branch: externals/tmr
commit b68961a5580fa38db7855161483386efce7425b1
Author: Steven Allen <ste...@stebalien.com>
Commit: Steven Allen <ste...@stebalien.com>
Fix face definition for expiring timers
The face text property is either a face or a list of faces mixed with
face properties, it's NOT a regular face spec so it shouldn't have any
DISPLAY conditions.
---
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")
