From ed58ed834c342bb2dc4fc7f4e70d34d0e782173a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 21 Feb 2000 12:57:42 +0000 Subject: [PATCH] (enriched-face-ans): Handle '(foreground-color . COLOR) and (background-color . COLOR). --- lisp/enriched.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/enriched.el b/lisp/enriched.el index 50f919e12cc..a7f3ad6cdf5 100644 --- a/lisp/enriched.el +++ b/lisp/enriched.el @@ -348,7 +348,11 @@ One annotation each for foreground color, background color, italic, etc." (defun enriched-face-ans (face) "Return annotations specifying FACE." - (cond ((string-match "^fg:" (symbol-name face)) + (cond ((and (consp face) (eq (car face) 'foreground-color)) + (list "x-color" (cdr face))) + ((and (consp face) (eq (car face) 'background-color)) + (list "x-bg-color" (cdr face))) + ((string-match "^fg:" (symbol-name face)) (list (list "x-color" (substring (symbol-name face) 3)))) ((string-match "^bg:" (symbol-name face)) (list (list "x-bg-color" (substring (symbol-name face) 3)))) -- 2.39.5