From 0914db5c7b094b7233f97d561d6cead61e400159 Mon Sep 17 00:00:00 2001 From: William Xu Date: Mon, 19 Mar 2007 05:13:00 +0000 Subject: emms-playing-time.el: Minor docstring updates. darcs-hash:20070319051306-cfa61-99781b572ba5eef00e1e72d2194691818b98a546.gz --- emms-playing-time.el | 6 +++--- 1 file 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" -- cgit v1.2.3