From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 3 Jul 1997 07:12:19 +0000 (+0000)
Subject: (custom-face-attributes): Use editable-color widget.
X-Git-Tag: emacs-20.1~1373
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1057d5616bbb3c76bad47bfb3f44b7103f182e1;p=emacs.git

(custom-face-attributes): Use editable-color widget.
---

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 3662f296baa..9a823971ffd 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -82,14 +82,14 @@ Control whether the text should be underlined.")
 Control whether the text should be in inverse video.")
 		set-face-inverse-video-p
 		face-inverse-video-p)
-    (:foreground (color :tag "Foreground"
-			:value "black"
-			:help-echo "Set foreground color.")
+    (:foreground (editable-color :tag "Foreground"
+				 :value "black"
+				 :help-echo "Set foreground color.")
 		 set-face-foreground
 		 face-foreground)
-    (:background (color :tag "Background"
-			:value "white"
-			:help-echo "Set background color.")
+    (:background (editable-color :tag "Background"
+				 :value "white"
+				 :help-echo "Set background color.")
 		 set-face-background
 		 face-background)
     (:stipple (editable-field :format "Stipple: %v"