diff options
| author | Ye Wenbin <wenbinye@gmail.com> | 2007-06-14 15:58:00 +0000 |
|---|---|---|
| committer | Ye Wenbin <wenbinye@gmail.com> | 2007-06-14 15:58:00 +0000 |
| commit | a01b8a208cf8820d8c777a48c3af08e21688a30e (patch) | |
| tree | 6609a1401022d947dbbc27d4933ff1115a54379b | |
| parent | e1a62e1ec9abb61e3758616d48288f493d06f9d2 (diff) | |
Write ogg tag use upcase fields
darcs-hash:20070614155806-94065-683464c11c64d331b912ceb712f571778f2ffc3a.gz
| -rw-r--r-- | emms-tag-editor.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/emms-tag-editor.el b/emms-tag-editor.el index 275bc75..441528b 100644 --- a/emms-tag-editor.el +++ b/emms-tag-editor.el @@ -133,7 +133,7 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.") (mapc (lambda (tag) (let ((info-tag (intern (concat "info-" tag)))) (when (> (length (setq val (emms-track-get track info-tag))) 0) - (setq args (append (list "-t" (concat tag "=" val)) args))))) + (setq args (append (list "-t" (concat (upcase tag) "=" val)) args))))) '("artist" "title" "album" "tracknumber" "date" "genre" "note")) (when args (apply #'call-process "vorbiscomment" nil |