aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorWilliam Xu <william.xwl@gmail.com>2007-03-19 05:13:00 +0000
committerWilliam Xu <william.xwl@gmail.com>2007-03-19 05:13:00 +0000
commit0914db5c7b094b7233f97d561d6cead61e400159 (patch)
treee66aa2f657ca85389c64f16feb17bafb0e0339a9
parent4a52382b9084675a140285e32e0ca011d5b8ed19 (diff)
emms-playing-time.el: Minor docstring updates.
darcs-hash:20070319051306-cfa61-99781b572ba5eef00e1e72d2194691818b98a546.gz
-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"