diff options
| author | Johnathan Rabkin <yonirabkin@member.fsf.org> | 2012-09-18 12:28:50 -0400 |
|---|---|---|
| committer | Johnathan Rabkin <yonirabkin@member.fsf.org> | 2012-09-18 12:28:50 -0400 |
| commit | d5666db21b9e2832eedf4d63a35d29f7fea7135b (patch) | |
| tree | d0254154faee9817b6af42e7e04790e4ef4d71fd /lisp/emms-tag-editor.el | |
| parent | 7a5eb54fa0f4a0d91213ec91263bfacc0469bc55 (diff) | |
Add support for disc-number sorting of FLAC files.
Patch from Christophe Rhodes <csr21@cantab.net>.
Diffstat (limited to 'lisp/emms-tag-editor.el')
| -rw-r--r-- | lisp/emms-tag-editor.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emms-tag-editor.el b/lisp/emms-tag-editor.el index 3eba673..06041c5 100644 --- a/lisp/emms-tag-editor.el +++ b/lisp/emms-tag-editor.el @@ -92,6 +92,7 @@ is the format template. The format specification is like: t -- Track info-title l -- Track info-album n -- Track info-tracknumber + D -- Track info-discnumber y -- Track info-year g -- Track info-genre ; -- Track info-note @@ -139,7 +140,7 @@ should be given. See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.") (defun emms-tag-editor-tag-flac (track) - "Commit changes to an OGG file according to TRACK." + "Commit changes to an FLAC file according to TRACK." (require 'emms-info-metaflac) (with-temp-buffer (let (need val) @@ -147,7 +148,7 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.") (let ((info-tag (intern (concat "info-" tag)))) (when (> (length (setq val (emms-track-get track info-tag))) 0) (insert (upcase tag) "=" val "\n")))) - '("artist" "composer" "performer" "title" "album" "tracknumber" "date" "genre" "note")) + '("artist" "composer" "performer" "title" "album" "tracknumber" "discnumber" "date" "genre" "note")) (when (buffer-string) (funcall #'call-process-region (point-min) (point-max) emms-info-metaflac-program-name nil |