(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))) ) )