# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1135994287 0
# Node ID 5bf588b1a01e154721ecbfd2492a13cf66e5bbff
# Parent  7538cafcf9f76cf294b17eed9f01acff21669e68
	* cus-theme.el (custom-new-theme-mode): Use cus-edit faces.

diff -r 7538cafcf9f7 -r 5bf588b1a01e lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Dec 30 23:15:03 2005 +0000
+++ b/lisp/ChangeLog	Sat Dec 31 01:58:07 2005 +0000
@@ -1,3 +1,7 @@
+2005-12-30  Chong Yidong  <cyd@stupidchicken.com>
+
+	* cus-theme.el (custom-new-theme-mode): Use cus-edit faces.
+
 2005-12-30  Richard M. Stallman  <rms@gnu.org>
 
 	* custom.el (custom-load-themes): Function deleted.
diff -r 7538cafcf9f7 -r 5bf588b1a01e lisp/cus-theme.el
--- a/lisp/cus-theme.el	Fri Dec 30 23:15:03 2005 +0000
+++ b/lisp/cus-theme.el	Sat Dec 31 01:58:07 2005 +0000
@@ -35,7 +35,20 @@
   "Major mode for the buffer created by `customize-create-theme'.
 Do not call this mode function yourself.  It is only meant for internal
 use by `customize-create-theme'."
-  (set-keymap-parent custom-new-theme-mode-map widget-keymap))
+  (set-keymap-parent custom-new-theme-mode-map widget-keymap)
+  (set (make-local-variable 'widget-documentation-face) 'custom-documentation)
+  (set (make-local-variable 'widget-button-face) custom-button)
+  (set (make-local-variable 'widget-button-pressed-face) custom-button-pressed)
+  (if custom-raised-buttons
+      (set (make-local-variable 'widget-mouse-face) custom-button))
+
+  ;; When possible, use relief for buttons, not bracketing.  This test
+  ;; may not be optimal.
+  (when custom-raised-buttons
+    (set (make-local-variable 'widget-push-button-prefix) "")
+    (set (make-local-variable 'widget-push-button-suffix) "")
+    (set (make-local-variable 'widget-link-prefix) "")
+    (set (make-local-variable 'widget-link-suffix) "")))
 (put 'custom-new-theme-mode 'mode-class 'special)
 
 (defvar custom-theme-name)