From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Dec 2007 19:01:40 +0000 (+0000)
Subject: (list-colors-print): Use :background and :foreground
X-Git-Tag: emacs-pretest-22.1.90~211
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78056104e0609c1e963db5cacb34a0be4492b5af;p=emacs.git

(list-colors-print): Use :background and :foreground
instead of background-color and foreground-color.
---

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