# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969279936 0
# Node ID 9d8d65ca0bd40c89f4b46a4e25d10d2754c79ed4
# Parent  6abff42174ea37f7c9066a659a651c74f73196e9
(toolbar-like-menu-item): Like in
toolbar-add-item, if image doesn't have a mask add a `:mask
heuristic'.

diff -r 6abff42174ea -r 9d8d65ca0bd4 lisp/toolbar/toolbar.el
--- 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))))))