diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2005-12-31 01:58:07 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2005-12-31 01:58:07 +0000 |
| commit | 8314bdb83640870e854e7de21ce6244f5f45c145 (patch) | |
| tree | 5b71e59c4c8a0d0dc89022112095437dcc741cbd /lisp/cus-theme.el | |
| parent | 537562fa4424691e6361df4fc700113faee2b533 (diff) | |
| download | emacs-8314bdb83640870e854e7de21ce6244f5f45c145.tar.gz | |
* cus-theme.el (custom-new-theme-mode): Use cus-edit faces.
Diffstat (limited to 'lisp/cus-theme.el')
| -rw-r--r-- | lisp/cus-theme.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index 43cf96e34fa..1e7fcfc4a5a 100644 --- 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) |