diff options
| author | Yoni Rabkin <yonirabkin@member.fsf.org> | 2014-02-22 23:27:17 -0500 |
|---|---|---|
| committer | Yoni Rabkin <yonirabkin@member.fsf.org> | 2014-02-22 23:27:17 -0500 |
| commit | a488db8a8527438bd42a9ecb0bc2d925cf1412a5 (patch) | |
| tree | 0cefa2fd27f2bfa34ced521a3cf662c81a8ab132 | |
| parent | bd85ebf4d2b92226e77709bfbcb635b58c94a228 (diff) | |
* lisp/emms-tag-editor.el: Silence the compiler by explicitly passing `filename'.
| -rw-r--r-- | lisp/emms-tag-editor.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emms-tag-editor.el b/lisp/emms-tag-editor.el index 06041c5..7ce4533 100644 --- a/lisp/emms-tag-editor.el +++ b/lisp/emms-tag-editor.el @@ -172,7 +172,7 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.") "-w" (append args (list (emms-track-name track))))))) -(defun emms-tag-editor-tag-file (track program tags) +(defun emms-tag-editor-tag-file (track program tags filename) "Change TAGS in FILE, using PROGRAM. Valid tags are given by `emms-tag-editor-tagfile-functions'." (let (args val) @@ -618,7 +618,7 @@ With prefix argument, bury the tag edit buffer." (setq exit (if (functionp (cdr func)) (funcall (cdr func) track) - (emms-tag-editor-tag-file track (cadr func) (nth 2 func)))) + (emms-tag-editor-tag-file track (cadr func) (nth 2 func) filename))) (if (zerop exit) (emms-track-get track 'info-mtime (butlast (current-time))) (emms-tag-editor-log |