aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlucas <lucas>2006-04-13 16:14:00 +0000
committerlucas <mwolson@gnu.org>2006-04-13 16:14:00 +0000
commit38424da232f995ee42b0262a1dc891042ea55acf (patch)
tree6079b1eac4bed1aedb330291de398e6ead3158fd
parent234190f338439c84bc5d58aeaced264efaa424d4 (diff)
emms-libtag.el : Make it id3v1 friendly by removing all the trailing whitespace in metadata
darcs-hash:20060413161451-4f952-95af88eaf6095d7459019458ca6131aa9f7d61e0.gz
-rw-r--r--emms-info-libtag.el4
1 files changed, 4 insertions, 0 deletions
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)))