Mercurial > emacs
changeset 67948:5bf588b1a01e
* cus-theme.el (custom-new-theme-mode): Use cus-edit faces.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 31 Dec 2005 01:58:07 +0000 |
| parents | 7538cafcf9f7 |
| children | b7d695ec282a |
| files | lisp/ChangeLog lisp/cus-theme.el |
| diffstat | 2 files changed, 18 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)