341 |
(list (list "x-color" (cdr face)))) |
(list (list "x-color" (cdr face)))) |
342 |
((and (consp face) (eq (car face) 'background-color)) |
((and (consp face) (eq (car face) 'background-color)) |
343 |
(list (list "x-bg-color" (cdr face)))) |
(list (list "x-bg-color" (cdr face)))) |
344 |
|
((and (listp face) (eq (car face) :foreground)) |
345 |
|
(list (list "x-color" (cadr face)))) |
346 |
|
((and (listp face) (eq (car face) :background)) |
347 |
|
(list (list "x-bg-color" (cadr face)))) |
348 |
((listp face) |
((listp face) |
349 |
(apply 'append (mapcar 'enriched-face-ans face))) |
(apply 'append (mapcar 'enriched-face-ans face))) |
350 |
((string-match "^fg:" (symbol-name face)) |
((string-match "^fg:" (symbol-name face)) |
440 |
(cond ((null color) |
(cond ((null color) |
441 |
(message "Warning: no color specified for <x-color>")) |
(message "Warning: no color specified for <x-color>")) |
442 |
((facep face)) |
((facep face)) |
443 |
((and (display-color-p) (facemenu-get-face face))) |
((and (display-color-p) (facemenu-get-face face)) |
444 |
|
(set-face-foreground face color)) |
445 |
((make-face face) |
((make-face face) |
446 |
(message "Warning: color `%s' can't be displayed" color))) |
(message "Warning: color `%s' can't be displayed" color))) |
447 |
(list from to 'face face))) |
(list from to 'face face))) |
451 |
(cond ((null color) |
(cond ((null color) |
452 |
(message "Warning: no color specified for <x-bg-color>")) |
(message "Warning: no color specified for <x-bg-color>")) |
453 |
((facep face)) |
((facep face)) |
454 |
((and (display-color-p) (facemenu-get-face face))) |
((and (display-color-p) (facemenu-get-face face)) |
455 |
|
(set-face-background face color)) |
456 |
((make-face face) |
((make-face face) |
457 |
(message "Warning: color `%s' can't be displayed" color))) |
(message "Warning: color `%s' can't be displayed" color))) |
458 |
(list from to 'face face))) |
(list from to 'face face))) |