diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-09-18 12:25:36 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-09-18 12:25:36 +0000 |
| commit | 72e28eeb5af3965456a6c525460374dfb61a6b78 (patch) | |
| tree | 75fb753e73a7b79831cdd8a59a063b0e5cc4fb32 /lisp/toolbar | |
| parent | 504805ac2f2aeeb010a64a90581c8e0cc706545a (diff) | |
| download | emacs-72e28eeb5af3965456a6c525460374dfb61a6b78.tar.gz | |
(toolbar-like-menu-item): Like in
toolbar-add-item, if image doesn't have a mask add a `:mask
heuristic'.
Diffstat (limited to 'lisp/toolbar')
| -rw-r--r-- | lisp/toolbar/toolbar.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/toolbar/toolbar.el b/lisp/toolbar/toolbar.el index bdd0d8a4385..bbc588da157 100644 --- a/lisp/toolbar/toolbar.el +++ b/lisp/toolbar/toolbar.el @@ -112,6 +112,8 @@ MAP must contain appropriate keymaps bound to `[menu-bar]' and 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)))))) |