aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYe Wenbin <wenbinye@gmail.com>2007-06-14 15:58:00 +0000
committerYe Wenbin <wenbinye@gmail.com>2007-06-14 15:58:00 +0000
commita01b8a208cf8820d8c777a48c3af08e21688a30e (patch)
tree6609a1401022d947dbbc27d4933ff1115a54379b
parente1a62e1ec9abb61e3758616d48288f493d06f9d2 (diff)
Write ogg tag use upcase fields
darcs-hash:20070614155806-94065-683464c11c64d331b912ceb712f571778f2ffc3a.gz
-rw-r--r--emms-tag-editor.el2
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