aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Olson <mwolson@gnu.org>2007-07-23 01:57:00 +0000
committerMichael Olson <mwolson@gnu.org>2007-07-23 01:57:00 +0000
commit48f7fad6239b112fd77a275102c8c0f9babc867f (patch)
tree35909cb1dee9b94c631ffb9feab86d820c35f028
parent264008fdcd1c65ba83b60d15badd71d8182d983e (diff)
emms-player-mpd: Make callback arg for emms-player-mpd-sync-from-emms optional
darcs-hash:20070723015722-1bfb2-917e1a705e793f4b1f9c34a0d0168aaa38efb355.gz
-rw-r--r--emms-player-mpd.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/emms-player-mpd.el b/emms-player-mpd.el
index b048f35..1bc2251 100644
--- a/emms-player-mpd.el
+++ b/emms-player-mpd.el
@@ -578,9 +578,10 @@ buffer and move to NEW-SONG."
(lambda (closure id)
(let ((buffer (car closure))
(fn (cdr closure)))
- (funcall fn buffer id)))))
+ (when (functionp fn)
+ (funcall fn buffer id))))))
-(defun emms-player-mpd-sync-from-emms (callback)
+(defun emms-player-mpd-sync-from-emms (&optional callback)
"Synchronize the MusicPD playlist with the contents of the
current EMMS playlist.