(enriched-face-ans): Handle '(foreground-color

. COLOR) and (background-color . COLOR).

diff --git a/lisp/enriched.el b/lisp/enriched.el
index 50f919e12cc08cd0b373cb70a7351943a6ad3b13..a7f3ad6cdf592a60e95a6ed2bfd03208de828a5b 100644 (file)
--- 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))))