[elpa] externals/listen d84783ae2d 04/12: Change: Use listen-queue-tracks-for

[ELPA Syncer]

branch: externals/listen
commit d84783ae2d63d61259f02f73982765643555785f
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: Use listen-queue-tracks-for
---
 listen-library.el | 2 +-
 listen-queue.el   | 6 ++----
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/listen-library.el b/listen-library.el
index 577a93fc24..485c6b7ebe 100644
--- a/listen-library.el
+++ b/listen-library.el
@@ -108,7 +108,7 @@ show the view."
                              if (file-directory-p path)
                              append (directory-files-recursively path "." t)
                              else collect path))
-         (tracks (remq nil (mapcar #'listen-queue-track filenames)))
+         (tracks (listen-queue-tracks-for filenames))
          (buffer-name (if name
                           (format "*Listen library: %s" name)
                         (generate-new-buffer-name (format "*Listen 
library*"))))
diff --git a/listen-queue.el b/listen-queue.el
index 3550041f62..e4ef459fc3 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -314,7 +314,7 @@ which see."
                (directory-files-recursively path ".")
              (list path))
            queue)))
-  (cl-callf append (listen-queue-tracks queue) (delq nil (mapcar 
#'listen-queue-track files)))
+  (cl-callf append (listen-queue-tracks queue) (listen-queue-tracks-for files))
   (listen-queue queue)
   (listen-queue-play queue)
   queue)
@@ -497,9 +497,7 @@ disk."
 (defun listen-queue-refresh (queue)
   "Refresh QUEUE's tracks from disk."
   (setf (listen-queue-tracks queue)
-        (delq nil (mapcar (lambda (track)
-                            (listen-queue-track (listen-track-filename track)))
-                          (listen-queue-tracks queue)))))
+        (listen-queue-tracks-for (mapcar #'listen-track-filename 
(listen-queue-tracks queue)))))
 
 (defun listen-queue-order-by ()
   "Order the queue by the column at point.