[elpa] externals/listen e79b1e5994: Fix: (listen-queue--add-track-durations) Increase minimum timeout

[ELPA Syncer]

branch: externals/listen
commit e79b1e59948cbf050d12f1aa77aabd4a27230dcd
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@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)))))))