diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2021-03-03 11:59:33 -0500 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2021-03-03 11:59:33 -0500 |
| commit | 58c949bc44fac53a8d4d87f8f2ecad7baca522f6 (patch) | |
| tree | 5a31a81ff692dc34b2c0e189d409ae969993a641 | |
| parent | 35d503c32beed719c06f7c8e8eb6eb17ea0a3b2a (diff) | |
* emms-playing-time.el: add lexical and fix
| -rw-r--r-- | emms-playing-time.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/emms-playing-time.el b/emms-playing-time.el index 8b14e16..920c9d5 100644 --- a/emms-playing-time.el +++ b/emms-playing-time.el @@ -1,4 +1,4 @@ -;;; emms-playing-time.el --- Display emms playing time on mode line +;;; emms-playing-time.el --- Display emms playing time on mode line -*- lexical-binding: t; -*- ;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2019 Free Software Foundation, Inc. @@ -197,10 +197,10 @@ could call `emms-playing-time-enable-display' and (let ((progress "[") ;; percent based on 10 (percent (/ (* emms-playing-time 10) total-playing-time))) - (dotimes (i percent) + (dotimes (_i percent) (setq progress (concat progress "="))) (setq progress (concat progress ">")) - (dotimes (i (- 10 percent)) + (dotimes (_i (- 10 percent)) (setq progress (concat progress " "))) (setq progress (concat progress "]")) (setq emms-playing-time-string progress)))) |