aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emms-tag-editor.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index 0098024..52a8046 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -154,7 +154,7 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.")
(require 'emms-info-metaflac)
(with-temp-buffer
(let ((tags '("artist" "composer" "performer" "title" "album" "tracknumber" "discnumber" "date" "genre" "note"))
- need val)
+ val)
(mapc (lambda (tag)
(let ((info-tag (intern (concat "info-" tag))))
(when (> (length (setq val (emms-track-get track info-tag))) 0)
@@ -544,7 +544,7 @@ Available tags are:
match "[^-]+"))
(setq compiled (concat compiled "\\(" match "\\)")
index (1+ index))
- (add-to-list 'registers (cons register index)))
+ (push (cons register index) registers))
(t (setq compiled (concat compiled (char-to-string c))))))
(if (/= paren 0) (error "Paren not match!"))
(cons compiled registers)))
@@ -830,7 +830,6 @@ A pipe is defined like below:
"Run command of pipe nameed PIPE-NAME to TRACK."
(if (eq (emms-track-get track 'type) 'file)
(let* ((coding-system-for-read 'utf-8)
- (track-name (emms-track-name track))
(command (emms-tag-editor-pipe-get pipe-name :command))
(arguments (emms-tag-editor-pipe-get pipe-name :arguments)))
(when (functionp arguments)