branch: externals/listen
commit e79b1e59948cbf050d12f1aa77aabd4a27230dcd
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (listen-queue--add-track-durations) Increase minimum timeout
Apparently 100ms is not always long enough for one file if ffprobe
hasn't been called recently.
---
README.org | 1 +
docs/README.org | 1 +
listen-queue.el | 3 ++-
3 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/README.org b/README.org
index 54a5833416..7d5bdf45b4 100644
--- a/README.org
+++ b/README.org
@@ -235,6 +235,7 @@ The ~listen-mode~ minor mode runs a timer which plays the
next track in the curr
- Indication of currently playing queue in queue list.
- Set metadata slot when reverting track from disk.
- Don't highlight current track in non-playing queues.
+- Increase minimum ~ffprobe~ timeout for a single track.
** v0.7
diff --git a/docs/README.org b/docs/README.org
index 1ab5bfc0dc..267672f0a3 100644
--- a/docs/README.org
+++ b/docs/README.org
@@ -247,6 +247,7 @@ The ~listen-mode~ minor mode runs a timer which plays the
next track in the curr
+ Indication of currently playing queue in queue list.
+ Set metadata slot when reverting track from disk.
+ Don't highlight current track in non-playing queues.
++ Increase minimum ~ffprobe~ timeout for a single track.
** v0.7
diff --git a/listen-queue.el b/listen-queue.el
index 8a03c8ca75..4cb69c5e06 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -859,7 +859,8 @@ MAX-PROCESSES limits the number of parallel probing
processes."
(while (and tracks (length< processes max-processes))
(let ((track (pop tracks)))
(push (probe-duration track) processes)))))
- (with-timeout ((* 0.1 (length tracks)) (error "Probing for track
duration timed out"))
+ (with-timeout ((max 0.2 (* 0.1 (length tracks)))
+ (error "Probing for track duration timed out"))
(while (or tracks processes)
(probe-more)
(while (accept-process-output nil 0.01)))))))
