[elpa] externals/listen 5ce4c38d1f 021/103: Tidy

[ELPA Syncer]

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

    Tidy
---
 listen-queue.el | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/listen-queue.el b/listen-queue.el
index 99c4b90719..b06bb944ae 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -213,10 +213,6 @@ PROMPT is passed to `completing-read', which see."
     (setf (listen-queue-tracks queue) tracks))
   (listen-queue--update-buffer queue))
 
-(defun listen-queue-random-track (queue)
-  "Return a random track in QUEUE."
-  (seq-random-elt (listen-queue-tracks queue)))
-
 (defun listen-queue-next (queue)
   "Play next track in QUEUE."
   (interactive (list (listen-queue-complete)))
@@ -224,11 +220,9 @@ PROMPT is passed to `completing-read', which see."
 
 (defun listen-queue-next-track (queue)
   "Return QUEUE's next track after current."
-  (if-let ((fn (alist-get 'next-track-function (listen-queue-etc   queue))))
-      (funcall fn queue)
-    (seq-elt (listen-queue-tracks queue)
-             (1+ (seq-position (listen-queue-tracks queue)
-                               (listen-queue-current queue))))))
+  (seq-elt (listen-queue-tracks queue)
+           (1+ (seq-position (listen-queue-tracks queue)
+                             (listen-queue-current queue)))))
 
 (provide 'listen-queue)
 ;;; listen-queue.el ends here