[elpa] externals/listen 34bebbe72a 2/2: Fix: (listen-queue--add-track-durations) Increase timeout

[ELPA Syncer]

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

    Fix: (listen-queue--add-track-durations) Increase timeout
    
    Apparently 50ms is sometimes not enough for very long tracks.
---
 README.org      | 3 ++-
 listen-queue.el | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index d779df02a9..8f0138a60a 100644
--- a/README.org
+++ b/README.org
@@ -67,7 +67,8 @@ Use the command ~listen~ to show the Transient menu.  From 
there, it is--hopeful
 
 ** v0.5-pre
 
-Nothing new yet.
+*Fixes*
++ Increase timeout for reading track durations.
 
 ** v0.4
 
diff --git a/listen-queue.el b/listen-queue.el
index f681f410e2..d0457d57a8 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -609,7 +609,7 @@ 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.05 (length tracks)) (error "Probing for track 
duration timed out"))
+      (with-timeout ((* 0.1 (length tracks)) (error "Probing for track 
duration timed out"))
         (while (or tracks processes)
           (probe-more)
           (while (accept-process-output nil 0.01))