From 438e7ec52497afc1aa5799f13d83156ccfda1f15 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Sat, 1 Apr 2006 23:26:00 +0000 Subject: Fix a variety of compilation errors and warnings. darcs-hash:20060401232610-1bfb2-5fe5e4892c94e29a59738bf0d27e7e91ad68f2ed.gz --- emms-mode-line-icon.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'emms-mode-line-icon.el') diff --git a/emms-mode-line-icon.el b/emms-mode-line-icon.el index 04699f3..b823bcf 100644 --- a/emms-mode-line-icon.el +++ b/emms-mode-line-icon.el @@ -41,8 +41,8 @@ For example, if you want to have something like : \[ Foo - The Foo Song ] You should set it to \"[\", and set emms-mode-line-format to \"%s ]\"") -(setq emms-mode-line-icon-image-cache - `(image :type xpm :ascent center :data ,(concat "/* XPM */ +(defvar emms-mode-line-icon-image-cache + `(image :type xpm :ascent center :data ,(concat "/* XPM */ static char *note[] = { /* width height num_colors chars_per_pixel */ \" 10 11 2 1\", @@ -67,8 +67,7 @@ static char *note[] = { (concat " " emms-mode-line-icon-before-format (propertize "NP:" 'display emms-mode-line-icon-image-cache) - (format emms-mode-line-format (emms-info-file-info-song-artist - (emms-playlist-current-selected-track))))) + (emms-mode-line-playlist-current))) (setq emms-mode-line-mode-line-function 'emms-mode-line-icon-function) -- cgit v1.2.3