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/image.el | |
| parent | df187c6252439abcc958bbeb507344d6781b46e7 (diff) | |
| download | emacs-05d22d02175330f9a9899d5daa431b1fdaf28470.tar.gz | |
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/image.el')
| -rw-r--r-- | lisp/image.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lisp/image.el b/lisp/image.el index 2ca2971b4aa..8dd88f627a1 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -721,7 +721,20 @@ shall be displayed." (cons (concat "\\." extension "\\'") 'imagemagick) image-type-file-name-regexps))))) - + +;;; Inline stock images + +(defvar image-checkbox-checked + (create-image "\300\300\141\143\067\076\034\030" + 'xbm t :width 8 :height 8 :background "grey75" + :foreground "black" :relief -2 :ascent 'center) + "Image of a checked checkbox.") + +(defvar image-checkbox-unchecked + (create-image (make-string 8 0) + 'xbm t :width 8 :height 8 :background "grey75" + :foreground "black" :relief -2 :ascent 'center) + "Image of an unchecked checkbox.") (provide 'image) |