aboutsummaryrefslogtreecommitdiff
path: root/emms-tag-editor.el
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2020-11-05 18:51:09 -0500
committerYoni Rabkin <yoni@rabkins.net>2020-11-05 18:51:09 -0500
commit4ca4ae8baf43896dd1c150e355f46e86c847b3e1 (patch)
tree15c8bc019ab768270d8e59120149c56df6ff7dd0 /emms-tag-editor.el
parent23c895e0ea3f0572f04e8057526bb8f6c12e1948 (diff)
* emms-tag-editor.el:
Diffstat (limited to 'emms-tag-editor.el')
-rw-r--r--emms-tag-editor.el6
1 files changed, 5 insertions, 1 deletions
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