diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-10-11 00:49:59 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-10-11 00:49:59 -0400 |
| commit | 05d22d02175330f9a9899d5daa431b1fdaf28470 (patch) | |
| tree | b1cf3b77165eb9c54e028b44eb96466ab6210c6f /lisp/wid-edit.el | |
| parent | df187c6252439abcc958bbeb507344d6781b46e7 (diff) | |
More cleanups and minor fixes for Customize.
* cus-edit.el (custom-face-edit-fix-value): Use
custom-fix-face-spec.
* custom.el (custom-push-theme): Cleanup (use cond).
(disable-theme): Recompute the saved-face property.
(custom-theme-recalc-face): Follow face alias before setting prop.
* custom.el (custom-fix-face-spec): New function; code moved from
custom-face-edit-fix-value.
(custom-push-theme): Use it when checking if a face has been
changed outside customize.
(custom-available-themes): New function.
(load-theme): Use it.
* image.el (image-checkbox-checked, image-checkbox-unchecked): New
variables, containing checkbox images.
* startup.el (fancy-startup-tail):
* wid-edit.el (checkbox): Use them.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index a6dca41bc28..3b9a0372de5 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -2195,19 +2195,9 @@ when he invoked the menu." ;; We could probably do the same job as the images using single ;; space characters in a boxed face with a stretch specification to ;; make them square. - :on-glyph '(create-image "\300\300\141\143\067\076\034\030" - 'xbm t :width 8 :height 8 - :background "grey75" ; like default mode line - :foreground "black" - :relief -2 - :ascent 'center) + :on-glyph image-checkbox-checked :off "[ ]" - :off-glyph '(create-image (make-string 8 0) - 'xbm t :width 8 :height 8 - :background "grey75" - :foreground "black" - :relief -2 - :ascent 'center) + :off-glyph image-checkbox-unchecked :help-echo "Toggle this item." :action 'widget-checkbox-action) |