aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYe Wenbin <wenbinye@gmail.com>2007-05-21 06:28:00 +0000
committerYe Wenbin <wenbinye@gmail.com>2007-05-21 06:28:00 +0000
commit806cbec32117e9ef1434cad34c91ec894ab07fb4 (patch)
tree22c61be125fdb2be5c02ac075115ae38f9b21d99
parent8fa660f88b6380f22815fde571f5ad489e900b07 (diff)
Set tag even if the tag is empty
darcs-hash:20070521062827-94065-df982456724837444c4491e57aa5086d6ca37b32.gz
-rw-r--r--emms-tag-editor.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index bdc2196..ca25b4c 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -144,8 +144,9 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.
"Change tag in FILE use PROGRAM. The TAGS is given in `emms-tag-editor-tagfile-functions'."
(let (args val)
(mapc (lambda (tag)
- (when (> (length (setq val (emms-track-get track (car tag)))) 0)
- (setq args (append (list (concat "-" (cdr tag)) val) args))))
+ (setq val (emms-track-get track (car tag)))
+ (if (and val (stringp val))
+ (setq args (append (list (concat "-" (cdr tag)) val) args))))
tags)
(apply 'call-process program
nil (get-buffer-create emms-tag-editor-log-buffer) nil