diff options
| author | Richard M. Stallman | 1997-07-03 07:12:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-03 07:12:19 +0000 |
| commit | a1057d5616bbb3c76bad47bfb3f44b7103f182e1 (patch) | |
| tree | 869bc4cbf7b9e6278065f6c5230a0d7401c9563c | |
| parent | 2f47738170a6efb203068ffac892b17fba78d0ec (diff) | |
| download | emacs-a1057d5616bbb3c76bad47bfb3f44b7103f182e1.tar.gz emacs-a1057d5616bbb3c76bad47bfb3f44b7103f182e1.zip | |
(custom-face-attributes): Use editable-color widget.
| -rw-r--r-- | lisp/cus-face.el | 12 |
1 files changed, 6 insertions, 6 deletions
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.") | |||
| 82 | Control whether the text should be in inverse video.") | 82 | Control whether the text should be in inverse video.") |
| 83 | set-face-inverse-video-p | 83 | set-face-inverse-video-p |
| 84 | face-inverse-video-p) | 84 | face-inverse-video-p) |
| 85 | (:foreground (color :tag "Foreground" | 85 | (:foreground (editable-color :tag "Foreground" |
| 86 | :value "black" | 86 | :value "black" |
| 87 | :help-echo "Set foreground color.") | 87 | :help-echo "Set foreground color.") |
| 88 | set-face-foreground | 88 | set-face-foreground |
| 89 | face-foreground) | 89 | face-foreground) |
| 90 | (:background (color :tag "Background" | 90 | (:background (editable-color :tag "Background" |
| 91 | :value "white" | 91 | :value "white" |
| 92 | :help-echo "Set background color.") | 92 | :help-echo "Set background color.") |
| 93 | set-face-background | 93 | set-face-background |
| 94 | face-background) | 94 | face-background) |
| 95 | (:stipple (editable-field :format "Stipple: %v" | 95 | (:stipple (editable-field :format "Stipple: %v" |