From 38424da232f995ee42b0262a1dc891042ea55acf Mon Sep 17 00:00:00 2001
From: lucas <lucas>
Date: Thu, 13 Apr 2006 16:14:00 +0000
Subject: emms-libtag.el : Make it id3v1 friendly by removing all the trailing
 whitespace in metadata

darcs-hash:20060413161451-4f952-95af88eaf6095d7459019458ca6131aa9f7d61e0.gz
---
 emms-info-libtag.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/emms-info-libtag.el b/emms-info-libtag.el
index 04cf3b3..b25de7a 100644
--- a/emms-info-libtag.el
+++ b/emms-info-libtag.el
@@ -59,6 +59,10 @@
                              nil t nil
                              (emms-track-name track))))
         (goto-char (point-min))
+        ;; Crush the trailing whitespace
+        (while (re-search-forward "[[:space:]]+$" nil t)
+          (replace-match "" nil nil))
+        (goto-char (point-min))
         (while (looking-at "^\\([^=\n]+\\)=\\(.*\\)$")
           (let ((name (intern-soft (match-string 1)))
                 (value (match-string 2)))
-- 
cgit v1.2.3