From 5401b0df9b4a45fb9f01b7f4236f99b34c79595a Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Fri, 14 Jul 2017 16:16:21 -0400 Subject: Move from cl to cl-lib. Patch by tumashu . --- lisp/emms-browser.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/emms-browser.el') diff --git a/lisp/emms-browser.el b/lisp/emms-browser.el index 94f0072..590a736 100644 --- a/lisp/emms-browser.el +++ b/lisp/emms-browser.el @@ -286,14 +286,13 @@ ;;; Code: +(require 'cl-lib) (require 'emms) (require 'emms-cache) (require 'emms-source-file) (require 'emms-playlist-sort) (require 'sort) -(eval-when-compile - (require 'cl)) ;; -------------------------------------------------- ;; Variables and configuration @@ -1068,7 +1067,7 @@ If DIRECTION is 1, move forward, otherwise move backwards." (emms-browser-kill-subitems) (if (emms-browser-subitems-exist) (emms-browser-show-subitems) - (assert (emms-browser-move-up-level)) + (cl-assert (emms-browser-move-up-level)) (emms-browser-kill-subitems)))) (defun emms-browser-show-subitems () @@ -1637,7 +1636,7 @@ Based on from `emms-browser-covers' and emms-browser-covers))) (defun emms-browser-get-cover-from-album (bdata &optional size) - (assert (eq (emms-browser-bdata-type bdata) 'info-album)) + (cl-assert (eq (emms-browser-bdata-type bdata) 'info-album)) (let* ((track1data (emms-browser-bdata-data bdata)) (track1 (car (emms-browser-bdata-data (car track1data)))) (path (emms-track-get track1 'name))) -- cgit v1.2.3