From 48f7fad6239b112fd77a275102c8c0f9babc867f Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Mon, 23 Jul 2007 01:57:00 +0000 Subject: emms-player-mpd: Make callback arg for emms-player-mpd-sync-from-emms optional darcs-hash:20070723015722-1bfb2-917e1a705e793f4b1f9c34a0d0168aaa38efb355.gz --- emms-player-mpd.el | 5 +++-- 1 file 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. -- cgit v1.2.3