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-playlist-sort.el | |
parent | a4ec6697e45a006753bfd79c22f14524748df493 (diff) |
Move from cl to cl-lib.
Patch by tumashu <tumashu@163.com>.
Diffstat (limited to 'lisp/emms-playlist-sort.el')
-rw-r--r-- | lisp/emms-playlist-sort.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emms-playlist-sort.el b/lisp/emms-playlist-sort.el index 138308e..0c3b466 100644 --- a/lisp/emms-playlist-sort.el +++ b/lisp/emms-playlist-sort.el @@ -22,7 +22,7 @@ ;;; Code: -(eval-when-compile (require 'cl)) +(require 'cl-lib) (require 'emms-last-played) (require 'emms-playlist-mode) @@ -188,10 +188,10 @@ ie. by album name and then by track number." (defun emms-playlist-sort-by-list-p (a b) (catch 'return (dolist (info emms-playlist-sort-list) - (case info + (cl-case info ((name info-artist info-composer info-performer info-title info-album info-genre) (when (emms-string< (emms-track-get a info) - (emms-track-get b info)) + (emms-track-get b info)) (throw 'return t))) ((info-playing-time) (when (< (emms-track-get a info) |