]> git.eshelyaron.com Git - emacs.git/commitdiff
(toolbar-like-menu-item): Like in
authorGerd Moellmann <gerd@gnu.org>
Mon, 18 Sep 2000 12:25:36 +0000 (12:25 +0000)
committerGerd Moellmann <gerd@gnu.org>
Mon, 18 Sep 2000 12:25:36 +0000 (12:25 +0000)
toolbar-add-item, if image doesn't have a mask add a `:mask
heuristic'.

lisp/toolbar/toolbar.el

index bdd0d8a4385a3d1863334f44c0d5dce48cd562ea..bbc588da15788cc869551b8bbe0e0d9ae4dd6350 100644 (file)
@@ -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))))))