* cus-theme.el (custom-new-theme-mode): Use cus-edit faces.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54bb2ee668749bc036d83eda0beb6bebe9a1c0c8..d8faabbdac9e8c207d86c83c866f5c2fdb7891c6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/cus-theme.el b/lisp/cus-theme.el
index 43cf96e34fa14f9392201426477e64745fb00e50..1e7fcfc4a5aebea98ddebce3157272f761756e3c 100644 (file)
--- a/lisp/cus-theme.el
+++ b/lisp/cus-theme.el
@@ -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)