From 5e0b2a93c340c46daa42f5139acbaae869bddb4e Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Wed, 12 May 2021 10:14:33 -0400 Subject: * emms-info.el: documentation fix. --- emms-info.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/emms-info.el b/emms-info.el index b7a6537..a180c3a 100644 --- a/emms-info.el +++ b/emms-info.el @@ -57,8 +57,7 @@ too annoying for you, set this variable to nil." :type 'boolean) (defcustom emms-info-asynchronously t - "Non-nil when track information should be loaded asynchronously. -This requires `emms-later-do', which should come with EMMS." + "Non-nil when track information should be loaded asynchronously." :type 'boolean) (defcustom emms-info-report-each-num-tracks 200 -- cgit v1.2.3 From 41a820533f608c746d1a43c6d3095f666d0d3c22 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Fri, 14 May 2021 16:22:04 -0400 Subject: * 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. -- cgit v1.2.3