diff options
| author | Michael Olson <mwolson@gnu.org> | 2007-07-23 01:57:00 +0000 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2007-07-23 01:57:00 +0000 |
| commit | 48f7fad6239b112fd77a275102c8c0f9babc867f (patch) | |
| tree | 35909cb1dee9b94c631ffb9feab86d820c35f028 | |
| parent | 264008fdcd1c65ba83b60d15badd71d8182d983e (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.el | 5 |
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. |