From 649edac3b50b7eed9a7ca8f4f85a8783a8e84bbc Mon Sep 17 00:00:00 2001
From: lucas <lucas>
Date: Mon, 12 Sep 2005 11:23:00 +0000
Subject: fixing emms-lyric.el and emms-mode-line.el

I don't have any lyric file, so I can't test it. But
there are no errors :)

darcs-hash:20050912112331-4f952-2981436bdf7b89f559c9888bdde58ec5345abadd.gz
---
 emms-lyric.el     | 2 +-
 emms-mode-line.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/emms-lyric.el b/emms-lyric.el
index d6f61da..bf6ce23 100644
--- a/emms-lyric.el
+++ b/emms-lyric.el
@@ -152,7 +152,7 @@ looking up in `emms-lyric-dir'."
 	emms-lyric-pause-time nil
 	emms-lyric-elapsed-time 0)
   (when (and emms-lyric-display-p
-	     (let ((file (cdaddr (emms-playlist-current-track))))
+	     (let ((file (cdaddr (emms-playlist-selected-track))))
 	       (emms-lyric-read-file
 		(replace-regexp-in-string
 		 (file-name-extension file) "lrc" file))))
diff --git a/emms-mode-line.el b/emms-mode-line.el
index 87c0f9d..33e2da0 100644
--- a/emms-mode-line.el
+++ b/emms-mode-line.el
@@ -53,7 +53,7 @@
 
 (defun emms-mode-line-playlist-current ()
   "Format the currently playing song"
-  (format emms-mode-line-format (emms-playlist-current)))
+  (format emms-mode-line-format (emms-track-description (emms-playlist-selected-track))))
 
 (defvar emms-mode-line-initial-titlebar frame-title-format)
 
-- 
cgit v1.2.3