aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emms-playing-time.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/emms-playing-time.el b/emms-playing-time.el
index 5d01354..cd5041d 100644
--- a/emms-playing-time.el
+++ b/emms-playing-time.el
@@ -73,7 +73,7 @@ Valid styles are `time' (e.g., 01:30/4:20) and `bar' (e.g., [===> ])."
"Whether to display playing time on mode line or not")
(defvar emms-playing-time 0
- "How long has EMMS run up to now.")
+ "Time elapsed in current track.")
(defvar emms-playing-time-string "")
@@ -178,7 +178,7 @@ could call `emms-playing-time-enable-display' and
(total-min-only (/ total-playing-time 60))
(total-sec-only (% total-playing-time 60)))
(case emms-playing-time-style
- ((bar)
+ ((bar) ; `bar' style
(if (zerop total-playing-time)
(setq emms-playing-time-string "[==>........]")
(let ((progress "[")
@@ -191,7 +191,7 @@ could call `emms-playing-time-enable-display' and
(setq progress (concat progress " ")))
(setq progress (concat progress "]"))
(setq emms-playing-time-string progress))))
- (t
+ (t ; `time' style
(setq emms-playing-time-string
(emms-replace-regexp-in-string
" " "0"