emms-metaplaylist-mode: Fix bug introduced by the recent emms-playlist-mode overhaul. Add faces for light backgrounds.

darcs-hash:20060608143846-1bfb2-e25dbaa46a3651f1acfd1aefc88f9ad32f03c365.gz

1 files changed, 11 insertions, 8 deletions

diff --git a/emms-metaplaylist-mode.el b/emms-metaplaylist-mode.el
index ecaa083..ef14a2f 100644
--- a/emms-metaplaylist-mode.el
+++ b/emms-metaplaylist-mode.el
@@ -54,6 +54,8 @@
 (defface emms-metaplaylist-mode-face
   '((((class color) (background dark))
      (:foreground "AntiqueWhite3"))
+    (((class color) (background light))
+     (:foreground "red3"))
     (((type tty) (class mono))
      (:inverse-video t))
     (t (:background "WhiteSmoke")))
@@ -63,6 +65,8 @@
 (defface emms-metaplaylist-mode-current-face
   '((((class color) (background dark))
      (:foreground "red2"))
+    (((class color) (background light))
+     (:background "red3" :foreground "white"))
     (((type tty) (class mono))
      (:inverse-video t))
     (t (:background "red3")))
@@ -116,14 +120,13 @@
 	      (mapc (lambda (buf)
 		      (let ((inhibit-read-only t))
 			(insert (buffer-name buf))
-			(emms-playlist-mode-overlay-track
-			 (point-at-bol)
-			 (point-at-eol)
-			 (if (eq buf emms-playlist-buffer)
-			     'emms-metaplaylist-mode-face
-			   'emms-metaplaylist-mode-current-face
-			   1)
-			 (newline))))
+			(add-text-properties
+			 (point-at-bol) (point-at-eol)
+			 (list 'face
+			       (if (eq buf emms-playlist-buffer)
+				   'emms-metaplaylist-mode-current-face
+				 'emms-metaplaylist-mode-face)))
+			(newline)))
 		    playlists))
 	    (current-buffer)))	       ; return the buffer as lisp obj
       (error "No Emms playlist buffers"))))