From a01b8a208cf8820d8c777a48c3af08e21688a30e Mon Sep 17 00:00:00 2001 From: Ye Wenbin Date: Thu, 14 Jun 2007 15:58:00 +0000 Subject: Write ogg tag use upcase fields darcs-hash:20070614155806-94065-683464c11c64d331b912ceb712f571778f2ffc3a.gz --- emms-tag-editor.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3