Mercurial > emacs
changeset 31691:9d8d65ca0bd4
(toolbar-like-menu-item): Like in
toolbar-add-item, if image doesn't have a mask add a `:mask
heuristic'.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 18 Sep 2000 12:25:36 +0000 |
| parents | 6abff42174ea |
| children | ca8dfb4718e6 |
| files | lisp/toolbar/toolbar.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/toolbar/toolbar.el Mon Sep 18 11:39:53 2000 +0000 +++ b/lisp/toolbar/toolbar.el Mon Sep 18 12:25:36 2000 +0000 @@ -112,6 +112,8 @@ key kk))))) (when (and (symbolp submap) (boundp submap)) (setq submap (eval submap))) + (unless (image-mask-p image) + (setq image (append image '(:mask heuristic)))) (define-key-after tb-map (vector key) (append (cdr (assq key (cdr submap))) (list :image image))))))