diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2017-07-14 16:16:21 -0400 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2017-07-14 16:16:21 -0400 |
| commit | 5401b0df9b4a45fb9f01b7f4236f99b34c79595a (patch) | |
| tree | ecf5a37d4a06ca5a278b70d7a35c37ecae60a121 /lisp/emms-playing-time.el | |
| parent | a4ec6697e45a006753bfd79c22f14524748df493 (diff) | |
Move from cl to cl-lib.
Patch by tumashu <tumashu@163.com>.
Diffstat (limited to 'lisp/emms-playing-time.el')
| -rw-r--r-- | lisp/emms-playing-time.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emms-playing-time.el b/lisp/emms-playing-time.el index 54a7f12..9c4f96a 100644 --- a/lisp/emms-playing-time.el +++ b/lisp/emms-playing-time.el @@ -39,7 +39,7 @@ ;;; Code: -(eval-when-compile (require 'cl)) +(require 'cl-lib) (require 'emms-info) (require 'emms-player-simple) @@ -177,7 +177,7 @@ could call `emms-playing-time-enable-display' and 0)) (total-min-only (/ total-playing-time 60)) (total-sec-only (% total-playing-time 60))) - (case emms-playing-time-style + (cl-case emms-playing-time-style ((bar) ; `bar' style (if (zerop total-playing-time) (setq emms-playing-time-string "[==>........]") |