Fix a typo in a function call

This commit is contained in:
Renaud Casenave-Péré 2011-07-25 13:40:33 +09:00
parent 402451d53d
commit 10db6dd0c9

View file

@ -179,7 +179,7 @@ songs order is kept into an avector `empc-current-playlist'."
(setq song (plist-put song field (concat (plist-get song field) ", " (cdr cell))))
(setq song (plist-put song field (cdr cell))))))))
(when (and song (>= index 0))
(puthast (plist-get song :id) song empc-current-playlist-songs)
(puthash (plist-get song :id) song empc-current-playlist-songs)
(aset empc-current-playlist index (plist-get song :id)))))
(defun empc-response-idle (data)