From 78056104e0609c1e963db5cacb34a0be4492b5af Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 29 Dec 2007 19:01:40 +0000 Subject: [PATCH] (list-colors-print): Use :background and :foreground instead of background-color and foreground-color. --- lisp/facemenu.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 26a0231bf1a..1365a42fc2c 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -541,14 +541,14 @@ argument BUFFER-NAME is nil, it defaults to *Colors*." (insert (car color)) (indent-to 22)) (point) - 'face (cons 'background-color (car color))) + 'face (list ':background (car color))) (put-text-property (prog1 (point) (insert " " (if (cdr color) (mapconcat 'identity (cdr color) ", ") (car color)))) (point) - 'face (cons 'foreground-color (car color))) + 'face (list ':foreground (car color))) (indent-to (max (- (window-width) 8) 44)) (insert (apply 'format "#%02x%02x%02x" (mapcar (lambda (c) (lsh c -8)) -- 2.39.2