[elpa] externals/emms 41a8205 2/3: * emms-info-native.el: catch errors

[ELPA Syncer]

branch: externals/emms
commit 41a820533f608c746d1a43c6d3095f666d0d3c22
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * emms-info-native.el: catch errors
    
    Otherwise, adding tracks will halt at the error.
---
 emms-info-native.el | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/emms-info-native.el b/emms-info-native.el
index 8601dd0..3e3e2d4 100644
--- a/emms-info-native.el
+++ b/emms-info-native.el
@@ -927,17 +927,20 @@ Return the text as string."
 (defun emms-info-native (track)
   "Set info fields for TRACK.
 Supports Ogg Vorbis/Opus, FLAC, and MP3 files."
-  (let* ((filename (emms-track-name track))
-         (info-fields (emms-info-native--decode-info-fields filename)))
-    (dolist (field info-fields)
-      (let ((name (intern (concat "info-" (car field))))
-            (value (cdr field)))
-        (unless (zerop (length value))
-          (emms-track-set track
-                          name
-                          (if (eq name 'info-playing-time)
-                              (string-to-number value)
-                            (string-trim-right value))))))))
+  (condition-case env
+      (let* ((filename (emms-track-name track))
+             (info-fields (emms-info-native--decode-info-fields filename)))
+       (dolist (field info-fields)
+         (let ((name (intern (concat "info-" (car field))))
+               (value (cdr field)))
+            (unless (zerop (length value))
+              (emms-track-set track
+                              name
+                              (if (eq name 'info-playing-time)
+                                 (string-to-number value)
+                               (string-trim-right value)))))))
+    (error (message "emms-info-native error processing %s: %s"
+                   (emms-track-name track) env))))
 
 (defun emms-info-native--decode-info-fields (filename)
   "Decode info fields from FILENAME.