# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 975525738 0
# Node ID 43839f6e282240c1cf446223ab07e02107c02fe1
# Parent  3d6f9638e8e582c21487480715810d043ce7ef13
(enriched-face-ans): Use face-attribute instead
of face-foreground and face-background.

diff -r 3d6f9638e8e5 -r 43839f6e2822 lisp/enriched.el
--- a/lisp/enriched.el	Wed Nov 29 19:21:47 2000 +0000
+++ b/lisp/enriched.el	Wed Nov 29 19:22:18 2000 +0000
@@ -356,8 +356,8 @@
 	 (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))))
-	((let* ((fg (face-foreground face))
-		(bg (face-background face))
+	((let* ((fg (face-attribute face :foreground))
+		(bg (face-attribute face :background))
 		(props (face-font face t))
 		(ans (cdr (format-annotate-single-property-change
 			   'face nil props enriched-translations))))