diff options
author | Yoni Rabkin <yoni@rabkins.net> | 2020-11-05 18:51:09 -0500 |
---|---|---|
committer | Yoni Rabkin <yoni@rabkins.net> | 2020-11-05 18:51:09 -0500 |
commit | 4ca4ae8baf43896dd1c150e355f46e86c847b3e1 (patch) | |
tree | 15c8bc019ab768270d8e59120149c56df6ff7dd0 | |
parent | 23c895e0ea3f0572f04e8057526bb8f6c12e1948 (diff) |
* emms-tag-editor.el:
-rw-r--r-- | emms-tag-editor.el | 6 |
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 |