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-mark.el | |
| parent | a4ec6697e45a006753bfd79c22f14524748df493 (diff) | |
Move from cl to cl-lib.
Patch by tumashu <tumashu@163.com>.
Diffstat (limited to 'lisp/emms-mark.el')
| -rw-r--r-- | lisp/emms-mark.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/emms-mark.el b/lisp/emms-mark.el index 4f02c75..696fe2d 100644 --- a/lisp/emms-mark.el +++ b/lisp/emms-mark.el @@ -36,18 +36,17 @@ ;;; Code: (provide 'emms-mark) +(require 'cl-lib) (require 'emms) (require 'emms-playlist-mode) -(eval-when-compile - (require 'cl)) ;;{{{ set new description-function (defun emms-mark-track-description (track) "Return a description of the current track." - (assert (not (eq (default-value 'emms-track-description-function) - 'emms-mark-track-description)) - nil (concat "Do not set `emms-track-selection-function' to be" - " emms-mark-track-description.")) + (cl-assert (not (eq (default-value 'emms-track-description-function) + 'emms-mark-track-description)) + nil (concat "Do not set `emms-track-selection-function' to be" + " emms-mark-track-description.")) (concat " " (funcall (default-value 'emms-track-description-function) track))) |