diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-10-24 19:40:55 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-10-24 19:40:55 -0400 |
| commit | 01898dc200f1f8f6ee9f77b93aa0a0ed283bf84f (patch) | |
| tree | 5345eb74ad3847f4ce7415b2686b6f0655f843bd /lisp/wid-edit.el | |
| parent | 7c051dd87f3bf202cb80f91bb3dab6465e368635 (diff) | |
Avoid inline image variables for checkboxes (Bug#7222).
* etc/images/checked.xpm:
* etc/images/unchecked.xpm: New images.
* image.el (image-checkbox-checked, image-checkbox-unchecked):
Deleted (Bug#7222).
* startup.el (fancy-startup-tail): Instead of using inline images,
refer to image files from etc/.
* wid-edit.el (checkbox): Likewise.
(widget-image-find): Center image specs.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 3b9a0372de5..e905e8f2a87 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -638,7 +638,8 @@ extension (xpm, xbm, gif, jpg, or png) located in specs) (dolist (elt widget-image-conversion) (dolist (ext (cdr elt)) - (push (list :type (car elt) :file (concat image ext)) specs))) + (push (list :type (car elt) :file (concat image ext) + :ascent 'center) specs))) (find-image (nreverse specs)))) (t ;; Oh well. @@ -2195,9 +2196,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 image-checkbox-checked + :on-glyph "checked" :off "[ ]" - :off-glyph image-checkbox-unchecked + :off-glyph "unchecked" :help-echo "Toggle this item." :action 'widget-checkbox-action) |