diff options
author | William Xu <william.xwl@gmail.com> | 2007-03-19 05:13:00 +0000 |
---|---|---|
committer | William Xu <william.xwl@gmail.com> | 2007-03-19 05:13:00 +0000 |
commit | 0914db5c7b094b7233f97d561d6cead61e400159 (patch) | |
tree | e66aa2f657ca85389c64f16feb17bafb0e0339a9 | |
parent | 4a52382b9084675a140285e32e0ca011d5b8ed19 (diff) |
emms-playing-time.el: Minor docstring updates.
darcs-hash:20070319051306-cfa61-99781b572ba5eef00e1e72d2194691818b98a546.gz
-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 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" |