Lines Matching +defs:face +defs:background
63 ;; Emacs doesn't have a "fixed" face by default, since all faces currently
70 This face is used for text specifically marked as fixed-width, for example
107 '((face (bold-italic "bold" "italic")
114 (nil enriched-encode-other-face))
125 (enriched-decode-background "x-bg-color")
361 (defun enriched-encode-other-face (old new)
362 "Generate annotations for random face change.
363 One annotation each for foreground color, background color, italic, etc."
364 (cons (and old (enriched-face-ans old))
365 (and new (enriched-face-ans new))))
367 (defun enriched-face-ans (face)
369 FACE may be a list of faces instead of a single face;
371 which can be the value of the `face' text property."
372 (cond ((and (consp face) (eq (car face) 'foreground-color))
373 (list (list "x-color" (cdr face))))
374 ((and (consp face) (eq (car face) 'background-color))
375 (list (list "x-bg-color" (cdr face))))
376 ((and (listp face) (eq (car face) :foreground))
377 (list (list "x-color" (cadr face))))
378 ((and (listp face) (eq (car face) :background))
379 (list (list "x-bg-color" (cadr face))))
380 ((listp face)
381 (apply 'append (mapcar 'enriched-face-ans face)))
382 ((let* ((fg (face-attribute face :foreground))
383 (bg (face-attribute face :background))
384 (props (face-font face t))
386 'face nil props enriched-translations))))
468 (list from to 'face (list ':foreground color))
472 (defun enriched-decode-background (from to &optional color)
474 (list from to 'face (list ':background color))