Commit 72e28eeb authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(toolbar-like-menu-item): Like in

toolbar-add-item, if image doesn't have a mask add a `:mask
parent 504805ac
......@@ -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))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment