diff options
author | Yoni Rabkin <yoni@rabkins.net> | 2021-05-14 16:34:38 -0400 |
---|---|---|
committer | Yoni Rabkin <yoni@rabkins.net> | 2021-05-14 16:34:38 -0400 |
commit | 06ef243c5a7b60de92ba5503bb385191e35fe21c (patch) | |
tree | b2b2506ee9026af21078ea5370d94e668e0fcbe6 | |
parent | 852cf6dca0c49aa8bf76de437724a4523a78f887 (diff) | |
parent | 41a820533f608c746d1a43c6d3095f666d0d3c22 (diff) |
Merge branch 'cache'
-rw-r--r-- | emms-info-native.el | 25 | ||||
-rw-r--r-- | emms-info.el | 3 |
2 files changed, 15 insertions, 13 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. 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 |