Fix goto current song in playlist

This commit is contained in:
Renaud Casenave-Péré 2011-10-06 17:36:31 +09:00
parent bb2fd85e51
commit f4aee5ef91

View file

@ -431,9 +431,10 @@ According to what is in the diff, several actions can be performed:
(let ((status-diff (empc-diff-status data))
(notify nil))
(when (plist-get status-diff :songid)
(setq notify '(lambda () (when (empc-playlist-songs empc-object)
(empc-echo-song))))
(empc-playlist-goto-current-song))
(setq notify '(lambda ()
(when (empc-playlist-songs empc-object)
(empc-echo-song))
(empc-playlist-goto-current-song))))
(when (plist-get status-diff :state)
(if (eq (plist-get status-diff :state) 'play)
(progn