From fbd33008cbe231efa3b6f96a0932d5661eecd895 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Renaud=20Casenave-P=C3=A9r=C3=A9?= Date: Sat, 27 Aug 2011 22:08:33 +0900 Subject: [PATCH] Bugfix in `empc-mode-line-to-string' --- empc.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/empc.el b/empc.el index 101d642..7904baa 100644 --- a/empc.el +++ b/empc.el @@ -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)))