aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYe Wenbin <wenbinye@gmail.com>2007-04-08 11:31:00 +0000
committerYe Wenbin <wenbinye@gmail.com>2007-04-08 11:31:00 +0000
commit21804acc049e7b0c826dbe6394f9df781a7f11e6 (patch)
treea0711336d3221f884f031d28358614b16ec521ed
parent9349465d281f49f3df7bf0255d82f04298a082c7 (diff)
Fix no changes found when val is change to empty
darcs-hash:20070408113129-94065-4abe8743412c621c46f6d6e1136222e4c86d2754.gz
-rw-r--r--emms-tag-editor.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index 1d10020..69f43f6 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -449,8 +449,10 @@ edit buffer."
(setq key (intern-soft (substring pair 0 (match-beginning 0)))
val (substring pair (match-end 0)))
(when (and key
- (> (length val) 0)
- (not (string= val (emms-track-get track key))))
+ (let ((old (emms-track-get track key)))
+ (if old
+ (not (string= val old))
+ (string< "" val))))
(if (eq key 'name)
(emms-track-set track 'newname val)
(emms-track-set track key val))