Bugfix in `empc-mode-line-to-string'

This commit is contained in:
Renaud Casenave-Péré 2011-08-27 22:08:33 +09:00
parent 18d96b8a8f
commit fbd33008cb

View file

@ -230,7 +230,7 @@ For status:
(defun empc-mode-line-to-string ()
"Return a string as per `empc-mode-line-format'."
(if song
(if (empc-current-song empc-object)
(let* ((song (empc-current-song empc-object))
(status (empc-status empc-object))
(time (empc-time-to-string (plist-get song :time)))