(let* ((data (ring-ref dired-ranger-copy-ring 0)) (files (cdr data))) (emms-cache-disable) (--each files (when (file-exists-p it) (unless (file-directory-p it) (message it) (emms-add-file it)))) (ring-remove dired-ranger-copy-ring 0))