(defun face-background-mapping ()
    (interactive)
    (setq x (mapcar 'face-background (face-list)))
    (setq y (face-list))
    (merge-lists x y)
)

(defun merge-lists (l1 l2)
    (if (not (null l1))
	(append (list (list (car l1) (car l2)))
		(merge-lists (cdr l1) (cdr l2)))
    )
)