diff options
| author | lucas <lucas> | 2006-04-13 16:14:00 +0000 |
|---|---|---|
| committer | lucas <mwolson@gnu.org> | 2006-04-13 16:14:00 +0000 |
| commit | 38424da232f995ee42b0262a1dc891042ea55acf (patch) | |
| tree | 6079b1eac4bed1aedb330291de398e6ead3158fd /emms-info-libtag.el | |
| parent | 234190f338439c84bc5d58aeaced264efaa424d4 (diff) | |
emms-libtag.el : Make it id3v1 friendly by removing all the trailing whitespace in metadata
darcs-hash:20060413161451-4f952-95af88eaf6095d7459019458ca6131aa9f7d61e0.gz
Diffstat (limited to 'emms-info-libtag.el')
| -rw-r--r-- | emms-info-libtag.el | 4 |
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))) |