diff options
| author | Miles Bader <miles@gnu.org> | 2008-01-02 02:20:42 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2008-01-02 02:20:42 +0000 |
| commit | b201b9880e01120b7e64f82c98464c5bea630b0d (patch) | |
| tree | 8205967f8225afc15b26f7fb630ec4e6b4ef87ea /lisp/facemenu.el | |
| parent | 42a0a13593c252378b8d6eecd97b7971ebd6808a (diff) | |
| parent | 76564e7ce3b5e888e3260dd3510c3cf1a254f7da (diff) | |
| download | emacs-b201b9880e01120b7e64f82c98464c5bea630b0d.tar.gz | |
Merge from emacs--rel--22, gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-975
Diffstat (limited to 'lisp/facemenu.el')
| -rw-r--r-- | lisp/facemenu.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 968a115c5d1..61a6f52f55b 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)) |