emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/emms fa8f64e 33/80: Fix whitespace trimming


From: Stefan Monnier
Subject: [elpa] externals/emms fa8f64e 33/80: Fix whitespace trimming
Date: Wed, 17 Mar 2021 18:42:25 -0400 (EDT)

branch: externals/emms
commit fa8f64e6a98373922c88af01d87046af2497d03d
Author: Petteri Hintsanen <petterih@iki.fi>
Commit: Petteri Hintsanen <petterih@iki.fi>

    Fix whitespace trimming
    
    Don't try to trim nil.
---
 emms-info-native.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/emms-info-native.el b/emms-info-native.el
index d0c9777..0c7a220 100644
--- a/emms-info-native.el
+++ b/emms-info-native.el
@@ -753,12 +753,13 @@ Supports Ogg Vorbis/Opus, FLAC, and MP3 files."
          (info-fields (emms-info-native--decode-info-fields filename)))
     (dolist (field info-fields)
       (let ((name (intern (concat "info-" (car field))))
-            (value (string-trim-right (cdr field))))
-        (emms-track-set track
-                        name
-                        (if (eq name 'info-playing-time)
-                            (string-to-number value)
-                          value))))))
+            (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))))))))
 
 (defun emms-info-native--decode-info-fields (filename)
   "Decode info fields from FILENAME.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]