[elpa] externals/emms 4ca4ae8 5/5: * emms-tag-editor.el:

[Yoni Rabkin]

branch: externals/emms
commit 4ca4ae8baf43896dd1c150e355f46e86c847b3e1
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * emms-tag-editor.el:
---
 emms-tag-editor.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index f9a9f72..ee9b2cb 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -186,9 +186,13 @@ See also `emms-tag-editor-tag-file' and 
`emms-tag-editor-tag-ogg'.")
 Valid tags are given by `emms-tag-editor-tagfile-functions'."
   (let (args val)
     (mapc (lambda (tag)
+            (unless (or (string-prefix-p "-" (cdr tag))
+                        (string-prefix-p "+" (cdr tag))
+                        (string-prefix-p "/" (cdr tag)))
+              (error "Command arguments need prefix in 
`emms-tag-editor-tagfile-functions'."))
             (setq val (emms-track-get track (car tag)))
             (if (and val (stringp val))
-                (setq args (append (list (concat "-" (cdr tag)) val) args))))
+                (setq args (append (list (cdr tag) val) args))))
           tags)
     (apply 'call-process program
            nil (get-buffer-create emms-tag-editor-log-buffer) nil