352 |
(list (list "x-color" (cdr face)))) |
(list (list "x-color" (cdr face)))) |
353 |
((and (consp face) (eq (car face) 'background-color)) |
((and (consp face) (eq (car face) 'background-color)) |
354 |
(list (list "x-bg-color" (cdr face)))) |
(list (list "x-bg-color" (cdr face)))) |
355 |
|
((and (consp face) (symbolp (car face)) (not (keywordp (car face)))) |
356 |
|
;; List of faces `(face1 face2 ...)'. |
357 |
|
(let ((ans nil)) |
358 |
|
(dolist (elt face) |
359 |
|
(setq ans (append ans (enriched-face-ans elt)))) |
360 |
|
ans)) |
361 |
((string-match "^fg:" (symbol-name face)) |
((string-match "^fg:" (symbol-name face)) |
362 |
(list (list "x-color" (substring (symbol-name face) 3)))) |
(list (list "x-color" (substring (symbol-name face) 3)))) |
363 |
((string-match "^bg:" (symbol-name face)) |
((string-match "^bg:" (symbol-name face)) |