Interface improvements to cus-theme.el.
authorChong Yidong <cyd@stupidchicken.com>
Sat, 9 Oct 2010 21:54:20 +0000 (17:54 -0400)
committerChong Yidong <cyd@stupidchicken.com>
Sat, 9 Oct 2010 21:54:20 +0000 (17:54 -0400)
commit76c16af806a31552ee2c2d774c3734e60aa7f8df
tree56e5c5e64da226071841eba3f5a5c7ecf0de4752
parent6513b232c86c7edf5bc1c281a8b91560093fdf4a
Interface improvements to cus-theme.el.

* cus-edit.el (custom-face-widget-to-spec)
(custom-face-get-current-spec, custom-face-state): New functions.
(custom-face-set, custom-face-mark-to-save)
(custom-face-value-create, custom-face-state-set): Use them.

* cus-theme.el (custom-theme--listed-faces): New var.
(customize-create-theme): Use *Custom Theme* as the buffer name.
Set revert-buffer-function.  Optional arg BUFFER.  Insert all
faces listed in custom-theme--listed-faces.
(custom-theme-revert): New function.
(custom-theme-add-variable, custom-theme-add-face): Insert at the
bottom of the list.
(custom-theme-write): Prompt for theme name if empty.
(custom-theme-write-variables): Use dolist.
(custom-theme-write-faces): Handle hidden (collapsed) widgets.
lisp/ChangeLog
lisp/cus-edit.el
lisp/cus-theme.el