diff options
| -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)))) |