Commit 8314bdb8 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 537562fa
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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment