From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 18 Sep 2000 12:25:36 +0000 (+0000)
Subject: (toolbar-like-menu-item): Like in
X-Git-Tag: emacs-pretest-21.0.90~1545
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72e28eeb5af3965456a6c525460374dfb61a6b78;p=emacs.git

(toolbar-like-menu-item): Like in
toolbar-add-item, if image doesn't have a mask add a `:mask
heuristic'.
---

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))))))